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El sistema más sabio 



PHILIPS introduce en España 
el HOMECOMPUTER más sabio, 
el sistema MSX, nuevo estandard 
mundial. 

¡Con cuanta sabiduría se ha 
pensado en cada una de sus 
características! 

Con el PHILIPS MSX puede 
realizar mil combinaciones 
de elementos: monitores, 
impresoras, floppys, programas 
educativos, de juegos y 
aplicaciones profesionales, gracias 
a su compatibilidad total tanto 
en hardware como en software. 

El PHILIPS MSX está tan 
sabiamente diseñado que Vd. 
puede elegir entre conectarlo al 
televisor de su casa, o a un monitor 
monocromo o de color. 

De igual modo puede utilizar 
como unidad de almacenamiento 
de memoria un cassette normal 
o un Floppy Disc del sistema 
MSX. 



¡Y qué potencia tiene el 
PHILIPS MSX! 

Es tanta, que si lo utilizamos 
con un Floppy Disc y junto a 
MSX-DOS, es compatible con 
sistemas de tipo profesional y de 
precio mucho más elevado. 

Y aquí no acaba la sabiduría 
con que ha sido creado el 
PHILIPS MSX. 

Puede hacerlo crecer según 
sus necesidades, desde un 
sencillo ordenador doméstico, 
con el lenguaje Basic más 
potente del mercado, hasta un 
sistema de tipo profesional que 
puede llegar a una capacidad 
máxima de 1.024 K bytes. 

PHILIPS MSX. Nunca se le 
quedará pequeño, nunca se 
le quedará anticuado. 

PHILIPS MSX, creado como un 
equipo atractivo, fácil 
de usar y muy asequible de 
comprar. 



PHILIPS MSX HOMECOMPUTER SYSTEM 
El amigo sabio de la familia 



¡PHILIPS MSX, sin duda, el 
sistema más sabio! 

MSX-DOS es compatible con 
CP/M™ y posee la misma 
estructura de ficheros que 
MS-DOS™. 

Todos los sistemas MSX son 
compatibles entre sí. 



MSX, MSX-DOS™ y MS-DOS™ son marcas 

registradas de Microsof Corp. 

CP/M™ es una marca registrada de Digital 

Research. 



BSi desea algún tipo de 
información relacionada con 
el campo del HOMECOMPUTER, 
estamos a su disposición en el teléfono 

(91) 413 22 46 

desearía recibir más información"! 
sobre el PHILIPS MSX. 

Nombre 

Apellidos | 



Domicilio 



PHILIPS IBERICA S.A.E. 
Apartado de Correos 50.800 
28080 MADRID 



PHILIPS MSX 

HOMECOMPUTER 
SYSTEM 

ESPECIFICACIONES 
TECNICAS 

Consola VG 8010 

Sistema MSX. 

Teclado: Teclado con disposición y separación es- 
tilo profesional de 72 teclas. 
Memoria: 32 K ROM, 48 K RAM (incluyendo 16 
K RAM de vídeo). 

Interconexiones incorporadas: Salida de RF, Sali- 
da Monitor. Interface audio-cassette, 2 conectores 
para controles manuales, 2 ranuras para cartuchos. 

Consola VG 8020 

Sistema MSX. 

Teclado: De recorrido completo, profesional con 
73 teclas. 

Memoria: 32 K ROM, 80 K RAM (incluyendo 16 
K RAM de vj'deo). 

Interconexiones incorporadas: Salida de RF, Sali- 
da Monitor, Interface audio-cassette, 2 conecto- 
res para controles manuales, 2 ranuras para car- 
tuchos, Interface para impresora. 

Características comunes 
VG 8010/VG 8020 

Conjuntos de caracteres 253 alfanuméricos y grá- 
ficos (incluye la ñ). 

Procesadores: Principal Z 80 A, Audio AY-3-8910, 
Vídeo TMS 9929 A. 

Lenguaje BASIC MSX: 130 instrucciones incorpo- 
rando macrocomandos y sprites. 
Posibilidad máxima de expansión de memoria 
1M. byte. 

Editor de pantalla. 

Utilizando MSX-DOS™ es compatible con 
CP/M™ y tiene la misma estructura de ficheros 
que MS-DOS™. 

Monitor monocromo 
BM 7552 y BM 7502 

Tubo de Imagen: Pantalla de alta resolución de 
12", antideslumbrante, Fósforo P 42. 
Ancho de Banda: 20 MHZ (a —3 dB). 
Resolución: Horizontal: 920 líneas en el centro. 
Vertical: 285 pixels. 

Caracteres en pantalla: 80x 25 (2.000) 
Salida Sonora: 0,3 W con 5% de distorsión. 

Impresora de matriz 

VW 0010, 40 columnas y VW 0020 de 80 colum- 
nas. 

Método impresión: Matriz de puntos por impactos. 
Matriz de carácter de 8x8 puntos. 
Paso de caracteres 10,5 cpi y 10 cpi, respectiva- 
mente. 

Velocidad de impresión 35 cps y 37 cps respecti- 
vamente. 

Mecanismo PF alimentación por fricción y trac- 
ción. 

Próximos lanzamientos 

Monitor de color 14". 

Floppy disc 3*4" 500 K sin formatear (360 K 
formateado). 

Software 

Disponibles en MSX más de 150 títulos entre apli- 
caciones, utilidades, educativos y juegos en so- 
porte ROM s , cassette y floppy de 3>A". 
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Línea directa 




¡Hola! A partir de este número este espacio es- 
tará dedicado a exponer nuestra opinión y a cana- 
lizar las inquietudes generales de nuestros lectores 
sobre aspectos fundamentales relacionados con la 
norma MSX. 

En el poco tiempo que llevamos, muchos de 
nuestros lectores nos han inundado prácticamente 
de cartas de felicitación, de sugerencias de bienve- 
nida al mercado en su gran mavoría. Todas y cada 
una de esas cartas han sido leídas agradecida y 
atentamente, y en la medida de nuestras posibili- 
dades las contestaremos a todas. 

No obstante, en esta ocasión, abordaremos a 
modo de tema editorial, aquellas que nos sugieren 
y nos solicitan la edición de cassettes grabados con 
juegos. La idea es sin duda alguna muy interesante 
y consideramos que es esfuerzo que se merecen to- 
dos nuestros lectores. Pero un esfuerzo de esta na- 
turaleza, más allá de la inversión económica que 
representa, tiene que ir acompañado y avalado por 
un nivel de alta calidad técnica y un precio accesi- 
ble para el usuario. Nosotros no queremos caer en 
la tentación de editar cassettes MSX -como ya está 
sucediendo en el mercado- que a la hora de inser- 
tarlos en el ordenador no funcionen. Esta labor 
implica que no ha de quedar ningún cabo sin atar y 
que tanto la información, que debe de ser clara y 
precisa, como las grabaciones han de tener una ga- 
rantía incuestionable. 

En síntesis. Editaremos cassettes conceptual- 
mente entretenidos, técnicamente garantizados y 
atractivamente presentados. No cometeremos el 
error de hacer una chapuza, que en 
a nuestros numerosos 




ü 



TRUCO PARA 
BORRAR LA 
PANTALLA 



Me dirijo a MSX CLUB 
para aportar mi granito de 
arena y ahorrar trabajo a 
muchos lectores. Se trata de 
un truco, si así puede lla- 
mársele, para borrar la pan- 
talla sin que sea necesario 
pulsar SHIFT+HOME o 
teclear CLS y pulsar RE- 
TURN. Para evitarnos todo 
esto he descubierto que se 
puede reprogramar la tecla 
de función Fl, que es la me- 
nos usada, de la siguiente 
manera: 

F1,"CLS"+CHR$(13) 
Espero que esta idea sea 
útil a muchos. 

Martín Rodríguez Juárez 
(Huelva) 



EL USO DE LA 
IMPRESORA 




He comprado una impre- 
sora Plotter Toshiba HX- 
10, pero no consigo hacerla 
funcionar porque no entien- 
do lo que dice el manual. 
Cuando ya tengo el progra- 
ma en pantalla inmediata- 
mente pongo LLIST, como 
parece que es, pero no suce- 
de nada. ¿Me podrían decir 
qué me falta? 

Mariano Salvador 
(Zaragoza) 

Suponiendo que hayas 
montado la imprresora co- 
rrectamente, el paso siguien- 
te es comprobar que están he- 
chas todas las conexiones en 
el lugar apropiado. Una vez 
que sabes que hay una perfec- 
ta comunicación entre el or- 
denador y la impresora, en- 
ciende ambos aparatos. He- 



cho esto, carga el programa 
en el ordenador y lístalo para 
comprobar que no hay erro- 
res de carga. Seguidamente, 
coloca LLIST y pulsa RE- 
TURN. En el mismo instante 
la impresora tiene que empe- 
zar a hacer su trabajo. 



JET MONSTER 
ES DE 32K 




Tengo 14 años y soy usua- 
rio del MSX, ya que tengo 
un Hit Bit 55P. Lo que quie- 
ro saber es si el programa es- 
trella, JET MONSTER, 
cabe en la memoria de mi or- 
denador y si no es así si se 
puede simplificar hasta que 
quepa. También quiero sa- 
ber si pensáis editar casset- 
tes de software, como hacen 
otras revistas de ordenado- 



res. 



Enrique L. Martin Tortosa 
(Tarragona) 



Tal como colocamos en el 
encabezamiento de nuestro 
programa estrella, Jet Mons- 
ter es para 32K y tu ordena- 
dor es de 16. El programa no 
se puede achicar -porque ya 
no sería el mismo-, pero tú 
puedes ampliar la memoria 
de tu aparato con un cartucho 
de ampliación. 

Con respecto a la edición 
de cassettes, muy pronto to- 
dos nuestros lectores tendrán 
una agradable sorpresa. 




ERRORES DE 

PROCRA- 

MACION 

Al teclear el programa de 
«Carrera de caballos» he 
comprobado que hay un 
error en la línea 140 y quisie- 
ra que me indicaran cómo 
corregirla. Lo mismo sobre 
la «carrera de coches». 

Juan Bonilla 
Manresa (Barcelona) 

En la «Carrera de caba- 
llos» en efecto hay un error, 
pero no en la línea 140 como 
dices, sino en la línea 80 que 
correctamente es: 
A$:"":P=0:A = 0:T=1:K=0 

Con respecto a la «Carrera 
de coches» no hemos detecta- 
do ningún error. Revisa bien 
tu listado y si no consigues 
dar con el error, envíanos tu 
cassette grabada y procurare- 
mos solucionarte el proble- 
mita. 

BIBLIOGRAFIA 
MSX 




Me interesa saber si cono- 
céis algún libro que trate del 
MSX. No importa el idioma. 

José D. CaldeviUa 

Durante el mes de julio 
tendrás a la venta el libro 
«LOS SECRETOS DEL 
MSX», con todo aquello que 
necesitas saber para dominar 
a tu máquina y sacarle el má- 
ximo rendimiento. 



ENVIO DE 
PROGRAMAS 



Me gustaría hacer un pro- 
grama y enviároslo, pero no 
sé como hacerlo, porque 
también quisiera intercam- 
biarlos por otros. Creo que 
los usuarios del MSX son 
muchos y el MSX CLUB 
debe llegar a muchos miles 
ya que sois los más popula- 
res. 

Leonardo Lafuente 
(Madrid) 

En efecto Leonardo, so- 
mos juntamente con nuestra 
hermana SUPER JUEGOS 
EXTRA MSX, los más popu- 
lares gradas a muchos lecto- 
res como tú. Para enviarnos 
programas sólo tienes que se- 
guir las instrucciones de 
nuestro boletín de envío. Si el 
.programa supera las 25 líneas 
grábalo en un cassette. 

Con respecto al intercam- 
bio, puedes anunciarte gra- 
tuitamente en nuestro Ta- 
blón de Anuncios, pero ten 
en cuenta que MSX CLUB 
DE PROGRAMAS es en sí 
una gran plataforma de in- 
tercambios. ¿Aprovéchala! 



¡COPIONES! 




Les escribo para felicitar- 
los por la gran iniciativa que 
han tenido al sacar otra re- 
vista de MSX. Yo, que me 
llamo Tosé Antonio Sánchez 
y soy lector de vuestra mag- 
nífica revista SUPER JUE- 
GOS EXTRA MSX y ahora 
de MSX CLUB DE PRO- 
GRAMAS. En ambas he 
comprobado el interés que 
tienen para que los usuarios 
aprendan a conocer el apa- 
rato y le saque el mayor be- 
neficio posible. 

También quiero comen- 
tarles que, como usuario del 
MSX he comprado una nue- 
va revista que ha salido hace 
poco y que se llama XXX, 
que cuesta nada menos que 
250 pts., y que trae muy po- 
cos programas y por si esto 
fuese ya muy feo, varios de 
esos programas ya fueron 
publicados por vosotros. 
José Antonio Sánchez 
(Madrid) 



Estimado amigo, le agra- 
decemos muchísimo su carta 
y también su confianza en no- 
sotros. Como la suya ya he- 
mos recibido numerosas car- 
tas advirtiéndonos de esta co- 
pia. Como podrá apreciar no 
hemos puesto el nombre de la 
publicación por un prurito 
ético que los editores de tal 
revista parecen no tener. 

Como usted comprenderá 
nos sabe mal que nos copien 
tan descaradamente, porque 
en realidad no cuesta mucho 
hacer el trabajo honestamen- 
te, pero por otro lado nos sen- 
timos muy orgullosos y con- 
fiados por la respuesta de 
nuestros lectores que inme- 
diatamente detectan el enga- 
ño. Para nosotros es la única 
arma hasta que aparezca la 
ley antipirata. 



LONGITUD DE 
PROGRAMAS 




Ante todo quiero felicita- 
ros por la magnífica revista. 
Es realmente una gran ayu- 
da para los que queremos 
aprender a utilizar el orde- 
nador, no sólo por los inte- 
resantes artículos que publi- 
cáis, sino sobre todo por los 
programas. Sin embargo, 
quiero manifestarles una crí- 
tica. Los programas son de- 
masiado largos para los que 
empezamos y como comete- 
mos aún muchos errores al 
teclearlos se nos hace muy 
difícil detectarlos. Vamos, 
que es un palo. 

José María Santisteban 
(Valencia) 

Como verán me he suscri- 
to a la revista antes del 25 de 
mayo y espero que me toque 
esa grabadora Sony que 
anunciáis. Pero aprovecho, 
para sugerirles que pongáis 
más programas y sobre todo 
que sean largos, para que las 
prestaciones que se obten- 
gan después -ya sean juegos 
o no-, sean realmente inte- 
resantes. 

Francisco José Barrionuevo 
(Sevilla) 



CLUB DE LA INFORMATICA, S.A. 

TODO EN MSX 
VEN A PROBARLOS 
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TABLON DE 
ANUNCIOS 

Intercambio programas de 
juegos y de gestión para 
MSX. Javier García LÍues- 
ma. c/. Huertos, n."21, 1." 

- SAGUNTO (Valencia) 
Ref. CP.2. 

Cambio programas MSX 
-gran variedad- primeros 
títulos del mercado. Mi- 
guel Angel Yañez Cama- 
cho. c7. Perú, n.° 21, 
41012 Sevilla - Tel. (954) 
61 26 36. Ref. CP.2. 
Cambio cartuchos para 
Atari 2600. Dispongo de 
Phocnix, Real Sport Soc- 
cer, Football, Asteroides, 
Combat, Defender. Lla- 
mar al (968) 51 46 82 Car- 
tagena (Murcia). Labora- 
bles después de las 21 hs. 
Ref. CP.2. 

Vendo consola Atari 
26000, más dos joysticks, 
más dos paddles, más dos 
cartuchos. Todo por 
18.000 pts. Todo por es- 
trenar. Jordi García. Ma- 
llorca, '314, pral, 1.', 
08037 Barcelona - Tel. 257 
60 72. Ref. CP. 2. 
Intercambio programas 
para MSX. Poseo Zaxxon, 
Ghostbuster, Congo Bon- 
go, I leystone Kapers, El 
Samurai Ninja y Apren- 
diendo Inglés I. Miguel A. 
Yáñez. Tel. (954) 61 26 36 

- Sevilla. Ref. CP.2. 
Vendo cassette para orde- 
nador mod. Philips 
1)6620, con todos los acce- 
sorios. Nuevo y precio 
muy interesante. Gregorio 
Riquelme Artes. P.° Alfon- 
so XIII, 54, 5.°. Cartagena 
(Murcia). Tel. (968) 52 57 
94. Ref. CP.2. 
Intercambio programas 
MSX de toda clase. Intere- 
sados llamar al tel. 25 2 1 72 
de Vitoria. Rodolfo Sáenz 
de Ugarte. Ref. CP. 1 . 
Vendo cartuchos Atari 
(Super ('obra, Tutanka- 
mon, Láser Blast, etc.), a 
2.500 pts. cada uno. Mi- 
guel A. Yáñez Camacho. 
c/. Perú, 21 -4 1-0 12 Sevilla 

- Tel. (954) 61 26 36. 
Ref. CP. 1. 

Intercambio programas 
MSX. Contactar con José 
M. López Patiño. Los 
Chopos 34, Las Gabias 
(Granada). Ref. CP.l. 



Tenemos en cuenta las su- 
gerencias de José María y 
Francisco José que coinciden 
con la de muchos otros lecto- 
res que nos han escrito. En 
adelante procuraremos inser- 
tar más programas de diver- 
sas longitudes. 



BASIC MSX 

En primer lugar debo de- 
cirles que la revista es muy 
interesante y acertada en su 
contenido, sobre todo por la 
variedad de programas que 
se pueden teclear. Pero noto 
que le dedican muy poco es- 
pacio al BASIC MSX y tam- 
bién a explicar las técnicas 
de programación para los 
principiantes. Es muy im- 
portante que esta revista pu- 
blique artículos así, porque 
hay muchos usuarios que, 
como yo, empezamos de 
cero. Espero que la sugeren- 
cia no les moleste. 

Luis M. Castillo 
(Barcelona) 




No sólo no nos molesta tu 
sugerencia, sino que en nom- 
bre de todos nuestros lectores 
te la agradecemos. Como 
comprobarás ■ en los últimos 
números ya insertamos artí- 
culos relacionados con el BA- 
SIC MSX, las técnicas de pro- 
gramación y con las posibili- 
dades del MSX. Estos artícu- 
los responden a sugerencias 
directas que nos van hacien- 
do los lectores de MSX 
CLUB. 



LO QUE ES UN 
SPRITE $ 



Me gustaría saber aunque 
parezca algo muy simple, lo 
que es un Sprite$, que veo 
siempre en los programas de 
juegos especialmente. He 
tratado de saberlo a través 
de varios manuales, pero no 
lo explican con claridad. Es- 
pero que no les cause mu- 
chas molestias. 

Santiago Portabella 
(Gerona) 

Como ya habrás leído en 
los manuales el SpriteS te de- 



fine los datos de los patrones 
de una figura en movimiento. 
Puedes tener hasta 256 patro- 
nes, cuando usas una clase de 
sprite de a 1 ó 64 de ellos, 
cuando empleas sprites más 
grandes de 2 ó 3. 

La longitud de un sprite se 
fija en 32 bytes pero los spri- 
tes más pequeños sólo necesi- 
tan que definas 8 caracteres. 
El resto es definido automáti- 
camente por la sentencia 
CHR$ (0). 

Para definir un sprite de 
16x16, debes definir la total 
de los 32 bytes en el patrón 
del sprite. 

Tal vez el siguiente ejem- 
plo te pueda aclarar más lo 
antedicho: 



10 SCRETEN 2 

20 SPRITE$C03=CHRÍC 16D+CHR*C48D+CHR$C 1 12 
D+CHR$C255D+CMR$C255D+CHR$C112D+CHR$C48D 
+CHR$C 16] 

30 PUT SPRITE 0. C100. 100D. 15.0 
40 GOTO 40 



EL VALOR DEL 

CODIGO 

POSTAL 

Les escribo para comuni- 
carles que el número 2 de 
MSX CLUB a partir del cual 
me suscribí lo he recibido 
muy tarde con una leyenda 
de Correos que decía «De- 
morado». Les ruego que to- 
men las medidas oportunas 
para que esto no vuelva a 
ocurrir, pues en ese caso 
no tiene sentido que me sus- 
criba. 

Juan Carlos Iturriaga 
(Bilbao) 

Sentimos muchísimo que 
le llegase tan tarde nuestra 
publicación, pero la responsa- 
bilidad no es nuestra ni tam- 
poco de Correos, pues hemos 
comprobado en su ficha que 
oportunamente no señaló el 
Código Postal de su domici- 
lio. Por lo tanto, y teniendo 
en cuenta que muchos lecto- 
res cometen la misma omi- 
sión a pesar de nuestra expre- 
sa advertencia, le rogamos 
nos comunique telefónica- 
mente su D.P. para que el 
número 3 le llegue correcta- 



UN AMIGO 
MAS 

Primeramente quisiera fe- 
licitaros por vuestra sensa- 
cional revista, que me está 
siendo de gran ayuda. Yo 
tengo un ordenador MSX, 
el HIT-BIT de Sony y desea- 
ría ponerme en contacto con 
chicos/as de Vitoria que tu- 
viesen un MSX para poder 
comentar nuestras expe- 
riencias con el ordenador. 

Rodolfo Sáenz de Ugarte 
(Vitoria) 

Gracias por las felicitacio- 
nes y nos alegramos que te 
seamos de gran ayuda. Esa es 
nuestra intención. Como po- 
drás ver insertamos en «Ta- 
blón de anuncios» tu solici- 
tud de intercambios, aunque 
puedes comprobar que el me- 
jor intercambio lo puedes ha- 
cer a través de nuestras pági- 
nas. 



FE DE ERRATAS 
¿MALDITOS GREMLINS! 

Son tan malvados aue hasta nos jugaron 
una mala pasada en la Fe de errores preci- 
samente. 

JET MONSTER 

Línea 1880 GOTO 220 

CARRERA DE CABALLOS 

Línea 80 A$="":P=0:A=0: T=1:K=0 

EL GUSANO 

Línea 190 LfcU -flSíO) 
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¡¡NO ESPERES QUE PASE LA 

SUSCRIBETE A 





club 



de PROGRAMAS 



PORQUE MSX CLUB DE PROGRAMAS ESTA 

PENSADA PARA TI 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 

SUSCRIBETE Y GANA 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle 

Ciudad Provincia ... 

D. Postal Teléfono ••••i 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/. Roca i Batlle, 10-12 - 08023 Barcelona 
o mediante transferencia bancaria a favor de MANHATTAN TRANSFER, S.A. 
Banco Central - Agencia 36 - Balmes, 386 - 08022 Barcelona - CTA.CTE. 21 76.80. 



Tarifas: 



España por correo normal Ptas. 
Europa por correo normal Ptas. 
Europa por correo aéreo Ptas. 
América por correo aéreo Ptas. 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



1 .500- 
1 .700 - 
1 .900- 
3.700- 



7 



Programa estrella 



AGUILA 
ESPACIAL 



Magnífico juego donde se po- 
nen de manifiesto el interés des- 
pertado entre nuestros lectores 
y la claridad de conceptos para 
desarrollar un programa. Nues- 
tras felicitaciones pues para Be- 
larmino Fernández ViÚaronga, 
de 16 años, de Santiago de Com- 
postela. 




«Aguila Espacial» contiene las ins- 
trucciones en la misma presentación. 
Se juega con joystick y como todos es 
susceptible de ser mejorado. Tarea ésta 
de nuestros lectores, a quienes invita- 
mos a escribirnos con las sugerencias 
que crean oportunas. 

«Aguila Espacial» consiste en con- 
ducir el Gran Pájaro Cósmico a través 
de los pasadizos de la Ciudad Prohibi- 
da, para lo cual tiene que eliminar a su 
Terrible Guardián y salvar los peligros 
Círculos Naranjas. 



100 CLS:PLAY"A". "3" : COLOR! 5. 1, 15:KEY0FF 
110 PRÍ NT"EL JUEGO' CONSISTE EN ATRAUE 
SAR LA CIUDAD POR EL PASADIZO. PERO P 
ARA ELLO DEBEMOS DE EL I'MÍNAR LOS OBSTACU 
-LOS QUE NOS ItfPIDEN EL PASO. LOS TRES CI 
RCULOS DEL COLOR NARANJA " 
120 PRINT 

130 PR I NT " EL COLOR NARANJA NOS CAUSA PAR 
AL ISIS MOMENTANEA V NOS DEUUELUE AL PUNT 
DEORIGEN, POR LO QUE DEBEMOS EUÍTAR TO 
-CAR ESTE COLOR SI LO HACEMOS QUE SE 
A EL MENOR TIEMPO POSIBLE 
140 PRINT 

150 PRI NT "PARA PODER ELIMINAR LOS OBJETO 
S TEN-DREMOS QUE MATAR AL GUARDIAN ,C 
ADA UEZ QUE ELIMINEMOS UNO. LOS OBSTACULO 
SCAMBI ARAN DE COLOR Y ENTONCES PODRE-MO 
S ATRAVESARLOS SIN PROBLEMAS. CONSI-GUIEN 
DO TIEMPO EXTRA. 

160 LOCATE 1 0» 20 tPR I N T" PULSA UNA TECLA" 

170 INKEY& 

180 IFA$=" "THEN170ELSE190 

190 REM 

200 REM 

210 REM BEL ARM IÑO FDE? U I L.L ARONGA 

220 REM 

230 REM SANTIAGO DE COMPOSTEL.A 
240 REM 

250 REM 7-5-1985 

260 REM 

'270 REM .PREPARACION DE PANTALLA 

280 REM — -.— : 

290 CLS : OPÉN " GRP : " F'OROU TPIJTASlf i 
300 SCREEN 2.0 
310 COLOR 15'. 1, 1 

320 A$^CHR$ C m 1 00 +-CHR* í &H 1 8 ') +CHR$ C &H3C ~J + 
ChR$ C &H7F D + ChR$ C &HC3 3 ' CHR$ í U183 D + CHR$ C 
23^ChR$Ca,H6D 

330 D$^CHR*C8.HF0D + CHR$C&H3tíD+CHR$C&m}+C 
HR$C8.H7D+CHR$C&H31+CHR$f 8 Í H3D+CHR*C&H4D+C 
HRSC&HC) 

340 C$^CHR$Ca,HF3+CHR$C8,HlCD+CHR$C8,HB0D+C 
HR$C&,HE0D+CHR*C8,HC0^CHR$C8,HC0 3+CHR$C8,H4 
0D+CHR$C&H60D 

350 B$=CHR$C&H8') 'CMR$ f &H 1 8 ) + CHR$ C &HBC D +C 
HR$C8.HFED+CHR$f-&HC3.') *-CHR*f'&HCl D+CHR*C 8,H4 
3+Ch'R$C&h60) 

360 E$-ChR*C8.H8'.HCHR$f &H8D + CHR$C&H8D+CHR 
* f &H8 3 +-CHRS C &.H8 3 +CHR$ f 8.H8 3 +CHR$ C &H8 3 +CHR 
*f&H83 
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Programa estrella 



370 F$^CHR$ C &HC 3 +CHR$ C &H1E3 +CHRS C &H3A3 +C 
HR$fS<H3E3+CHR$f &HC 3 +CHR$ f &H8 3 +CHR$ f &H3C 3 
+ CHR$C&<H7C3 

380 G$=CHR$f&,H5F.3 + CHR$fS,HDC3+CHR$f8<HlC3 + 

CHR$f8,H36 3+CHR$f&H62 3+CHR$f&,H82 3+CHR$Cg,H 

C23 + CHR$fS,H633 

390 SPRITE$f03=A* 

400 SPRITE$C1D^B$ 

*10 SPRI TE$f23=C$ 

420 SPRITESf 33=D$ 

430 SPRITE$C4.3=E* 

440 SPRI TE$f53=F$ 

450 SPRITESf 63^G$ 

460 PSETf0, 1503 .9 

470 DRAUJ " R20D 1 5R 1 0D05R27U20R 1 5U5R 1 0U5R 1 
U90R50D5L 45D30R30D 1 0R5D5L 20D50R50D49L 1 60 
U49 

480 PAJNTC30, 1850, .9 
430 PSETC 185. 1903.9 

500 DRAtü n .U59L.55U15R25U35L5U10L25U2R80D53 
R65D75L85 

510 PAINT f 188. 180.") . 9 
520 PSET.f 190. 200} , 1 
530 DRAUJ ''U25R10D25L 10 
540 P A IN.T Cl 9 % 1 90 ^ , 1 
550 PSETf 120 / 200 3 . 1 
560 DRAUJ"Ü25R5D25L5 
570 RA.T Ñ TC.1 2 1-, 1 90 3 . 1 
S8.0 C iRCLEf 35 . 35 3. 15 
5.90. PAINT i 36. 36 3 . 15 
600 CÍRCLEC 150. 353. 10.7 
613 PAINT . U 51, 363.7 
622) CÍ.RCLEC 165. 35 3 . 8. 7 
630 PAINF f 167.. 36 3. 7 
640 CÍRCLE.C V64. 253* 10. 7 
650 PAÍNT f 165, 26 3. 7 
660 CIRCLEC200, 353.10. 7 
670 RAÍ NT C201.363.7 
680 CIRCLEf 215. 35 3 .8. 7 
690 PAINT f 21 6, 363. 7 
700 PSETC 220. 120 3 . 13 
7 í ORAU U40E 1 5F 1 5D20R20D20L 50 
720 PAINTC223. 1 183, 13 
730 PSETf 230. 70 3, 8 
740 DRAUTU15L5.R10 

750 P$ET f 75 . 200 3 . 6 : DRAUJ " U25R I 5D25L 1 5 
760 PAINT C77, 1903 . 6 

770 PSETf 203 ;"190 3 . 13 : DRAUJ "U30R15D30L 15 
780 PA'I NT C 207. 1853 . 13 
790 PSETf40, 1693,7 
800 DRAOJ"U50R5U30D30R5D50L10 
810 PAT NT f 42. 1653.7 
820 PSETf 10,83 . 1 
830 PRINTttl , " PUNTOS " 
840 PSETf 130.83. 1 
850 iINE=0 
860 PRINTtt! , "TIEMPO" 
870 FGR A=l TO. 65 
880 PSETf 180+A. 83. 12:C0L0R 12 
890 PR.INT#l.CHR$f 219 3 
900 NEXT A 




910 REH 

320 REfl riÜUiniENTO 

930 REH 

940 T=5 

950 FOR (S»=l TO 48 
360 PSET i 68+A, 83,1 
970 COLQR 1 

380 PRINT #1,CHR$C2193 
990 NEXÍ A:COLOR 15 

1000 C IRCLEÉ 135, -623, 4, 9 :PAINTC 135.62 3,9 
1010 CIRCLEC 142. 993, 4, 9 :PAINTC 142,993,9 
1020 (¡IRCLEC 174, 150 3 , 4. 9 :PAINTC 174. 1503 
9 

1030 Y=30:X=30 
1040 T=T+1 
1050 H=10 
1060 H^H+1 
1070 U-INTC TIME/503 
1080 J-ÍNTCRNDC13*Y3 
1090 S=-INTCRNDC13*X3 
1100 !F U>70 THEN GOTO 2250 
1110 PSETC 176+U.83 , 15:C0L0R 15 
1120 PRINT#1,CHR$C2193 
1130 ÍF U>50 THEN BEEP 
1140 COLOR 15 
1150 IF J<12 THEN J=2 
1160 IF J>12 AND J<18 THEN J=6-J 
1170 IF J>18 THEN J^+J 
1 180 C=H+J 

1190 IF C >247 THEN OC-J-S 
1200 IF C <0 THEN C=C+J+S 
1210 PUT SPRÍTE 9, CC, 1753,4,5 
1220 PUT SPRITE 10, CC, 1833,4.6 
1230 D=STICKC13 
1240 S^STRIGC13 
1250. ÍF S=-l THEN GOSUB 1580 
IF D=0 THEN GOTO 1540 
IF D=5 THEN Y=Y+T 
1280 IF 0=1 THEN Y=Y-T 
1290 ÍF D--7 THEN X=X-T 
IF D=-8 THEN X=X-T 
IF D=8 THEN Y=Y-T 
IF D=6 THEN Y=Y+T 
1330" IF D=6 THEN X=X-T 
1340 P=POINT CX^8,"Y3 
1350 IF P=9 THEN GOTO 920 
1360 IF P^3 THEN GOSUB 1930 
1370 PUT SPRITE 1,CX,Y3 ,12,3 
1380 PUT SPRITE 0, CX+8, Y3 , 12, 2 



1510 IF X>240 THEN X^2¿0 

152B IF Y<20 THEN Y=20 

1530 GOTO 1060 

1540 PUT SPRITE 1,CX,Y3 .,12,0 

1550 PUT SPRITE 0, CX+8, Y3 , 12, 1 

1560 GOTO 1060 



1260 
1270 



1300 
1310 
1320 



IF 
TF 



1390 
1400 
1410 IF 
1420 IF 
1430 IF 
1440 IF 
1450 IF 
1460 IF 



Y>195 THEN GOTO 
Y=16 THEN Y=16 
X<3 THEN X=3 
D=3 THEN X=X+T 
D=2 THEN X=X+T 
D^2 THEN Y=Y-T 
D^4 THEN Y=Y + T 
D= 4 THEN X=X+T 
1470 U=POINT CX.Y3 
1480 IF U=9 THEN GOTO 930 
1490 PUT SPRITE 0,CX+8,Y3 t 12,2 
1500 PUT SPRITE 1,CX,Y3 ,12,3 





158.0 REM DISPARO- 

1590 REM 

1600 ON SPRITE GOSUB L710 
16Í0 SPRITE ON 

1620 FOR N=C.y+133 TO 216 STEP 24 
1630 K=C'X+33 

1-64-0 PUT SPRÍTÉ 2. CK.N+83. 15,4 
1650 PUT SPRITE 2, CK, N3, 15,4 
1660 NEX.T.N 
1670 -PLAY"U121 1403a" 
.1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 



RETURN 

REM 

REM EL 

REM 

SPRITE OFF 
PUÍ SPRITE 
FOR F=l TO 



2. C 30. 383. 15,4 
9 

PLAVUl 2L6405BU1306CU1 105DU1206E". " 
U12L60O7G" 
1760 NEXT F 

FOR 1=170 TO 10 STEP -1 
PUT SPRITE 9, CH. 13. 10,5 
PUT SPRITE 10. CH. 1+83. 10,6 
NEXT I 
E=-8*T 

CIRCLEC23+E. 133 . 2. 4 
PAIN1T23+E. 131.4.2 
IF T=10 THEN GOTO 2080 
IF T-7 GOTO 1890 
IF r=-8 Güfü 1900 
IF T=6 GOTO 1880 

CIRCLEf !35.623..4.3:^AÍNTf 135.623.3: 

1030 

C I RCLE C 1 4 2 , 99 3 . 4 . 3 : ^A i N i i 1 42 . 99 3 . 3 : 
1030 

CIRCLEf 174, 15-0 3. 4.3 :PAÍNrr 175. 1503. 
ÜFF 
1030 

REM 

REM**EL I M [ NAR 03S 1 AGUI O " 

REM 

TF T = 7 THEN 60 TQ 1980 
IF T=8 THEN GOTO 1990 
IF T=9 THEN GOTO 2000 
CIRCLEC135.623.4, 1 :PAINTf 135, 623. 
20 10: RETURN 



1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
GOTO 
1890 
GOTO 

1900 

3 :SPRITE 
1910 GOTO 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
GOSUB 

1990 CIRCLEC142.993.4. 1 :PA!NTC 142, 993 . 1 : 
GOSÜB 2010:RETURN 

2000 CÍRCLEC174, 150 3 . 4. 1 :P£iINTf 174. 150 3 . 
1 : GOSUB 2010IRETURN 
2010 FOR A--1 TO 65 

PSETC 180+ A. -8 3 , i2:C0L0R 12 
PRINT4tl.CHR*C2lS3 
NEXT A:TIME=-0 
RETURN 

REM r* 

REM** FIN ** 

REM 

SCREEN 3 
PSETÍ70.90 3. 1 
COLOR 13 • 



1 



2020 
21330 
2040 
2050 
2060 
2070 
2080 
2030 
2100 
2110 
2120 
2130 
2140 
2150 



RRI-NT t*U "O. K. " 

FOR -.A*l.- TO 1000: NEXT A 

SCREEN 2.0 

PRI.NIItl I' QUIERES 



Z S/N 

2160- 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

22¿0 

2250 

2260 

2270 

2280 



A$ - 1 NKEY$ 

IT A$= M "THEN 2160EL.SE2180 

[F A$-="S"THENCLOSE :GOTO200 

IF A$0"S"THEN 2210 

GOTO 290 

SCREEN 3 

PSETC50.903, 1 

COLOR 12 

PRÍNT#1, "ADIOS" 

FOR AM TO 150 STE P 10 

COLOR A/10. 1 , A/10 

FOR U)=1T0 300: NEXT U 

NEXT 

GOTO 2140 



JUGAR OTRA UE 



C3J 



Boletín 
de 

participac 

(Para enviar adjunt 



PROGRAMA 

I^JVCP^I^ lodos nuestros lectores están 
>s ■ ? invitados a escribir sus propios 
programas. 

MSX CLUB DE PROGRAMAS seleccionará aque 
líos que estén mejor disenados, que sean originales, 
útiles o entretenidos y los publicará 
Todos los listados que publique 
mos recibirán 5.000 pts. y parti 
ciparán en el sorteo 
de una fabulosa 
impresora. 



r 




NOMBRE DEL PROGRAMA 

TIPO DE LISTADO 

JOYSTICK O TECLADO 

INSTRUCCIONES DE CARGA: 

INSTRUCCIONES DE JUEGO: 

TIPO DE GRABADORA EMPLEADA 



i • ••' 



Par.ao.rdena.dor.es.de. K d.e memoria 



MARCA DEL ORDENADOR 



NOMBRE Y APELLIDOS DEL AUTOR 

EDAD CALLE 

CIUDAD D.P. 



N.< 



TEL. 



Para uso exclusivo de MSX CLUB DE PROGRAMAS 

FECHA DE RECEPCION NOMBRE DEL EVALUADOR 

PUBLICABLE GRAFICOS SONIDO 

ORIGINALIDAD 

OBSERVACIONES 

Para todos aquellos listados que superen las 25 líneas es imprescindible enviar cassette 
grabado, con su correspondiente protección plástica. 



Remitir a: MSX CLUB - MI PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 
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Monitor al día 



EL TREN DE KONAMI 



Un juego simple y educativo 



«Crazy - Train» o tren loco es un jue- 
go que pone al jugador ante situaciones 
que indefectiblemente han de produ- 
cirse y que él tiene que prever. Se trata 
de un pequeño tren, cuyas vías se inte- 
rrumpen y que el jugador tiene que, 
moviendo las piezas del puzzle, darle 
continuidad. También aparecen otros 



trenes negros que si chocan lo dejan 
fuera de línea. Si el tren no va en hora- 
rio la pantalla se oscurece y es muy difí- 
cil conducir de noche. Crazy Train es 
muy recomendable para los más pe- 
queños, ya que les ejercita su capacidad 
de retentiva y previsión. Su precio es de 
unas 4.800 ptas. 



HOME COMPUTER GAME CARTRIDGE 

CARTOUCHES DE JEUX POUR ORDINATEUR DOMESTIQUE 



HBS-G006C 



•••••• 

>•••••• 

• •••• 






GHOSTBUSTER 



Para MSX 




La casa Activision ya tiene el cartu- 
cho de la famosa película «Ghostbus- 
ters» -cazafantasmas- en versión 
MSX. Se trata de un juego apasionante 
que requiere una gran habilidad por 
parte de cada jugador. Este no sólo lu- 
cha contra el tiempo y los fantasmas 
que lo acosan, sino que además tiene 
que tener en cuenta los gastos, las 
inversiones y los aparatos para cazar 
fantasmas apropiados para cada mo- 
mento. 



UNIDAD DE 
DISCOS TOSHIBA 



casi profesional 




Para darle al micro ordenador MSX 
unas características casi profesionales, 
la unidad de discos Toshiba es una vía 
imprescindible. Esta pequeña unidad 
permite el almacenamiento de datos y 
un acceso directo y casi instantáneo a 
los mismos. 

Esta unidad de discos es de 3 1/2 
pulgadas y 320K Gtiles y estará dispo- 
nible dentro de un mes aproximada- 
mente, según informa Toshiba España. 



14 



SVM01 MSX 
JOYSTICK 

Un mando a toda prueba 




La calidad de los joysticks se caracte- 
riza tanto por la comodidad que ofrece 
al usuario, como por su resistencia. El 
SVI-101 de Spectravídeo tiene estas 
cualidades. En primer lugar se adapta 
perfectamente a la mano y es lo sufi- 
cientemente resistente como para que 
aguante los avatares de los distintos 
juegos. Sus dos botones de disparo lo 
hacen muy versátil lo que le permite 
responder con agilidad ante situacio- 
nes que se hacían complicadas con otro 
tipo de mandos. Su diseño está basado 
en los famosos «QuickShot», cuya cali- 
dad ya conocen muchos. 



MICRO 
ORDENADORES 



Las ventas siguen creciendo 



Según informaciones procedentes 
de las compañías que ya han comenza- 
do la comercialización de los aparatos 
MSX en España, las ventas son verda- 
deramente interesantes. Si bien no es- 
tán todas las marcas y la campaña pro- 
mocional no ha entrado en una fase in- 
tensiva, la respuesta del usuario espa- 
ñol ha sido altamente positiva. 

En los primeros cinco meses de ven- 
ta se calcula que ya el parque existente 
es de unos 100 míl aparatos. Si tenemos 
en cuenta que en Japón, el nivel de ven- 
tas se mantiene en unas 360.000 unida- 
des, es de' considerar que el éxito ya 
puede considerarse rotundo. 



«ROBO», EL 
PRIMER ROBOT 
MSX 

Es fabricado por Mitsubishi 



TRINIT0N 



La definición de la imagen 




Según anuncia la Compañía Mitsu- 
bishi muy pronto comercializará en 
toda Europa el primer robot de la nor- 
ma MSX. El pequeño androide se lla- 
ma «Robo» y si bien por ahora es poco 
más que un juguete divertido de andar 
por casa, pone de manifiesto las enor- 
mes posbüidades del sistema para rea- 
lizar un sinfín de actividades domésti- 
cas. «Robo» es radiocontrolado y se 
desplaza sobre ruedas por todo el piso, 
levanta los brazos, etc. «Robo» no ne- 
cesita sensores especiales ni otros dis- 
positivos para recibir las señales. Pero 
cuenta con salidas para periféricos 
como disk drives, impresoras, cartu- 
chos, etc. Vamos, un «juguete» muy in- 
teresante. 



«I 




Si algo se pide a la hora de ver una 
imagen en pantalla y sobre todo si ésta 
es generada por nuestro ordenador 
MSX, es que esa imagen sea nítida y 
perfectamente definida. Estas cualida- 
des son las del «Triniton» de Sony, 
cuyo nombre técnico es KV-1430E. 
Este televisor de 14" tiene la misma de- 
finición de color y de línea comparable 
a los televisores de mayor prestigio del 
mercado. 

Pero lo más importante es su salida 
GT apropiada para conectar con cual- 
quier ordenador de la norma MSX, 
que se halla en la parte frontal del apa- 
rato lo cual da mayor comodidad al 
usuario. 



EL LASER DISK EN EL FUTURO DEL MSX 




La compañía JVC, que aún no ha 
lanzado su microordenador de 64K en 
España, pero que muy pronto lo lanza- 
rá en el resto del mundo, está realizan- 
do experimentos con su sistema de ví- 
deo interactivo. El sistema VHD (ví- 
deo de alta densidad) se comercializará 
dentro de un año. En sí es un sistema 
muy simple y funciona conectando un 
microordenador MSX con un interface 
VHD, similar al interface RS232. Para 



su funcionamiento son necesarios los 
vídeo discos que actúan como almacén 
de datos de imágenes activas, las cuales 
pueden ser manipuladas por el ordena- 
dor según las necesidades del usuario. 

Como un anticipo de lo que puede 
hacerse con este sistema la JVC cuenta 
con un juego de carreras de coches que 
en cuanto se manipula el joystick las 
imágenes cobran un extraordinario 
realismo. 
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Monitor al día 



SANYO YA SE 
VENDE EN ESPAÑA 



El MPC-lOO entra con fuerza 




GEOGRAFIA DE 
ESPAÑA 

Un cassette educativo de ADVANCE 



Sí^ Cr °° r j 6 na y ° del mode " bilidad con todo el software MSX, es la 
lo MPC-100 de 64K es un aparato muy inclusión de la versión Basic de Micro- 
interesante por su capacidad de memo- sott 4,5 apto para uso empresarial, 
na disponible para el usuario. En este También podemos destacar sus inter- 
sentido se hace especialmente reco- faces para impresora de 8 bits paralelo 
mendable para pequeños empresarios, centronic, bus de cartucho de 1 slot, de 
para la contabilidad hogareña y la edu- 50 pins y de expansión de similares ca- 
cación. Entre las prestaciones que ofre- racterísticas técnicas, 
ce este aparato, además de su compati- 



HBM-16y HBM-64 
DE SONY 



ratos MSX se hacen mucho más poten- 
tes y versátiles para el uso cotidiano. El 
precio de estos cartuchos es de 8.500 y 
17.500 ptas. según sea de 16K o 64K. 




Entre las novedades en cassettes 
educativos destacamos este de la marca 
ADVANCE, «GEOGRAFIA DE ES- 
PANA» muy recomendable sobre 
todo para aquellos fanáticos del MSX, 
pero que se han quedado cortos en el 
colé en esta materia. De un modo sen- 
cillo este cassette te pone al día sobre 
todas aquellas cuestiones de la geogra- 
fía española cuyo conocimiento es ine- 
ludible para pasar con éxito el próximo 
examen. Este juego es distribuido por 
ACE, S.A. y está disponible en todas 
las tiendas especializadas y en los gran- 
des almacenes. Su precio es de 1.900 
ptas. 



Cartuchos para ampliar la memoria 




La compañía Sony ofrece la posibili- 
dad de ampliar la memoria de los orde- 
nadores MSX mediante dos cartuchos 
específicos de 16K y 64K. Con ellos la 
memoria RAM, es decir aquella a la 
que tiene acceso directo el usuario, se 
amplía en tantos kilobytes como se de- 
seen y de acuerdo con las necesidades 
de cada usuario. De este modo los apa- 



TENIS DE K0NAMI 



La famosísima productora de software 
Konami ya comercializa para el MSX, 
uno de sus cartuchos de mayor éxito 
mundial. Nos referimos al «Tennis», 
cuyas características y reglas de juego 
son similares a las del tenis de verdad. 
Su grafismo es bri- 
llante y bien defini- 
do, lo mismo que sus 
jugadores, que se 
mueven con notable 
soltura por la pista. 
En ésta puedes, una 
vez que hayas efec- 
tuado el saque y si no 
cometes doble falta, 
realizar los golpes 
más comunes de este 
deporte. Como pue- 



de apreciarse en la ilustración, el juego 
también cuenta con dos tableros elec- 
trónicos que indican la puntuación de 
cada «games» y la de «sets». Los jue- 
ces, controlan y dirimen cualquier 
duda sobre algunos pelotas difíciles. 
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Uno de los juegos de mayor éxito de 
los últimos tiempos ya está disponible 
en cassette Philips. Se trata de «Zax- 
xon», un juego espacial diseñado en 
tres dimensiones, lo cual permite tener 
referencia del relieve. Como muchos 
recordarán el juego consiste en ocupar 
el territorio y la fortaleza de un robot 
llamado Zaxxon, el cual dispone de 



una serie de armas terriblemente mor- 
tíferas. Cada una de las pantallas pone 
a prueba la habilidad del piloto espa- 
cial para eludir los misiles, las baterías, 
los campos magnéticos y los escuadro- 
nes de robots, hasta llegar ante el mis- 
mísimo y casi invulnerable Zaxxon. El 
precio es de unas 1 .850 pts. aproxima- 
damente. 



SUPER 
GRABADORA 
PHILIPS 

Precisión en la lectura 




La lecto grabadora de datos D- 
6600/60P ha sido especialmente dise- 
ñada por Philips para la grabación y 
lectura de datos de aparatos de la nor- 
ma MSX. Esta lecto-grabadora es de 
fácil conexión y manejo, teniendo su 
interface incorporado en el ordenador, 
por lo que basta con conectarla direc- 
tamente en su correspondiente entra- 
da. Al mismo tiempo permite el uso de 
control remoto desde el mismo orde- 
nador para todas sus funciones. Como 
detalle de interés y también de gran 
utilidad para los usuarios cabe señalar 
la presencia de una led que ilumina 
para indicar el flujo de datos que se 
produce mientras se graba o se carga 
el ordenador. 



IMPRESORA 
SUPER 5 




La casa Arkofoto, S.A, -Nuñez de 
Balboa, 58, Madrid, P° de Gracia 22-2 
Barcelona y Gral. Dávila, 43 Santan- 
der-, dispone de la impresora Super 5, 
modelo EN-P-1091, cíe notables pres- 
taciones para los usuarios de MoX y 
para trabajos de oficina. Entre sus cua- 
lidades técnicas destacamos su impre- 
sión en «near», su velocidad de impre- 
sión de 120 caracteres por segundo, có- 
digos de comando compatibles con los 
software standar de impresión, bús- 
queda de impresión lógica bidireccio- 
nal, alta resolución con direcciona- 
miento de gráficos, tracción y fricción 
v, sobre todo, su salida standar de 8 
bits en paralelo, que la hace compatible 
con los aparatos MSX, y salida opcio- 
nal RS232. 



EL MANDO 
DEL SANYO 



Tan ágil como fuerte 



El joystick que ofrece la casa Sanyo 
para sus micro ordenadores y todos los 
de la norma MSX, tiene dos virtudes 
importantes para el jugador. Por un 
lado es un mando que se adapta perfec- 
tamente a la mano y por otro da una 
gran capacidad de respuesta. El MJY- 
002, viene provisto con cuatro ventosas 
de goma que se adhieren a la superficie 
otorgando así mayor firmeza a los mo- 
vimientos. Y al igual que los joysticks 
más sofisticados del mercado, éste 
cuenta con dos botones de disparo 
para una mejor respuesta ante los re- 
querimientos de cada juego. 
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¿QUE ES UN 
PROGRAMA? 

Por Feo. J. Guerrero y J. C. González 



La respuesta a esta pregunta 
abre los ojos a un importante 
campo para todos aquellos 
usuarios de un microordena- 
dor. Pensando en lo que se en- 
frentan por primera vez a la má- 
quina, este artículo expone de 
un modo claro y sencillo todo lo 
que hay que saber sobre un pro- 
grama. 



¿Qué es un programa? Para empe- 
zar podemos decir que es un conjunto 
de instrucciones que la máquina sabe 
interpretar y que posibilitan la resolu- 
ción de un determinado problema. El 
programa debe introducirse en la me- 
moria de la máquina para que ésta sepa 
lo que tiene que hacer. En principio, 
nos sentamos trente a una máquina que 
nada sabe de nuestras intenciones. Ne- 
cesitamos proporcionarle 2 cosas: los 
datos y las instrucciones. Es importan- 
te establecer claramente la distinción 
entre datos y programa. El programa 
son la serie de instrucciones aue hacen 
algo con los datos suministrados poste- 
riormente. 

Para desarrollar un programa segui- 
mos unos pasos bien definidos: hace- 
mos en primer lugar un análisis de la si- 
tuación que queremos resolver. Una 
vez hecho el análisis, hallamos el algo- 
ritmo que mejor traduce el problema 
que hay que resolver. Un algoritmo es 
una descripción muy precisa de todos 
los pasos que deben realizarse para re- 
solver un problema. Finalmente debe- 
mos traducir el algoritmo en un lengua- 
je de programación que la máquina en- 
tienda. Este paso es el más sencillo de 
todos y no presenta problemas para 
quien conoce el BASIC MSX, es por 
ello por lo que estudiaremos más a fon- 
do el concepto de algoritmo. 

ALGORITMO 

Es más difícil definir y entender de 
forma teórica lo que es un algoritmo 
que el comprenderlo a través de la 
práctica. Primero veremos como se 
puede definir teóricamente y luego su 
ejecución práctica. 

Dado un problema llamamos algo- 
ritmo a una descripción que nos dice 
de forma clara cuáles son los pasos que 
deben seguirse, para, a partir de los da- 
tos, obtener una solución correcta y al- 
canzable en un plazo concreto. 

Si alguien sabe de qué forma puede 
resolverse un problema determinado, 



podrá entonces escribir el algoritmo 
correspondiente; este algoritmo, co- 
municado a otra persona, debe permi- 
tir que esta última a su vez, pueda tam- 
bién resolver el problema correcta- 
mente y sin que le quede ninguna duda 
de cómo debe hacerlo. Los algoritmos 
desempeñan un papel muy importante 
en la comunicación de métodos para la 
resolución de problemas y en particu- 
lar, en el trabajo informático. 

Puede demostrarse matemáticamen- 
te que con sólo tres tipos de estructuras 
puede resolverse cualquier problema 
que tenga solución. 

Si vamos por una carretera, esta sólo 
puede ser de tres formas: o bien es una 
recta, un cruce de carreteras, o bien 
nos hallamos en un circuito, en donde 
estamos dando vueltas. Estas tres es- 
tructuras básicas pueden a su vez com- 
binarse entre sí: La recta puede condu- 
cir a un cruce y una de las carreteras 
que salen del cruce puede a su vez lle- 
var a un circuito, que también tiene un 
cruce al entrar y salir de él. De esta for- 
ma podemos ir combinando estas tres 
estructuras básicas hasta reproducir 
una infinidad de circunstancias. La 
recta es la estructura secuencial. La bi- 
furcación es la estructura alternativa, y 
el circuito es la estructura repetitiva. 
Vamos a estudiar por separado cada 
una de estas estructuras básicas. Pero 
antes recordemos un concepto que es 
útil conocer, es el de análisis descen- 
dente, y que se basa en una descompo- 
sición reiterativa del problema en sub- 
problemas. En esta descomposición 
una acción en un determinado paso del 
análisis se va descomponiendo en ac- 
ciones más elementales en el paso si- 
guiente. El proceso se repite hasta lle- 
gar a unas acciones que sean inmedia- 
tamente interpretables por el ordena- 
dor. Durante todo el proceso de «des- 
composición» se utiliza únicamente 
una de las tres estructuras básicas, si no 
lo entiendes muy bien ahora sigue ade- 
lante. 



ESTRUCTURA 
SECUENCIAL 

En este caso, la resolución del pro- 
grama implica la resolución de un con- 
junto de acciones, de la acción 1 a la ac- 
ción n, tales que una acción concreta se 
inicia cuando la que le precede finaliza. 
La solución del problema se obtiene 
cuando finaliza la acción n. 

La notación que caracteriza esta es- 
tructura consiste en separar las distin- 
tas acciones con un " " o bien en escri- 
birlas en líneas diferentes: 

ACCION 1; ACCION 2; 
ACCION 3; 
o bien 
ACCION 1 
ACCION 2 
ACCION 3 

Supongamos que queremos fumar 
un cigarrillo. Una primera aproxima- 
ción algorítmica al problema «fumar 
un cigarrillo», podría ser la siguiente: 

SACAR TABACO 
COGER FUEGO 
ENCENDER CIGARRILLO 

Este sería un algoritmo secuencial. 
Las acciones que hay que ejecutar se 
suceden las unas a las otras en el orden 
en que son enunciadas. Si lo hiciéra- 
mos al revés, tendríamos algún proble- 
ma. Intenten hacer, por ejemplo: 



ENCENDER CIGARRILLO 
COGER FUEGO 
SACAR CIGARRILLO 

Lo que caracteriza, pues, un algorit- 
mo secuencial es la «secuencia» de las 
acciones que hay que efectuar, cuyo or- 
den no puede alterarse sin correr el 
riesgo de no poder resolver el proble- 
ma. 
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ESTRUCTURA 
ALTERNATIVA 



En este caso debemos tener en cuenta 
una condición para saber qué acción hay 
que ejecutar. Si una condición determina- 
da se cumple, realizaremos tal acción, y si 
no se cumple, haremos tal otra. 

. La notación que utilizamos para repre- 
sentar esta estructura utiliza las palabras 
clave siguientes: En inglés, IF, THEN, 
ELSE... en castellano, SI, ENTONCES, 
SI NO; SI condición ENTONCES Ac- 
ción 1 SI NO Acción 2. 

Importa siempre que un algoritmo pue- 
da leerse con facilidad. Así, será preferi- 
ble escribir la estructura en varias líneas, 
con las acciones escritas más a la derecha 
que las condiciones. 



SI (IF) condición ENTONCES 

(THEN) 

Acción 1 

SI NO (ELSE) 

Acción 2 

Para fumar nos hace falta, entre otras 
cosas, tener cigarros. Si no los tenemos no 
podemos, caso en que decidiremos com- 



prar tabaco. El algoritmo se escribirá en- 
tonces de la siguiente manera: 

SI tenemos TABACO 
ENTONCES 
SACAR TABACO 
COGER FUEGO 
ENCENDER CIGARRILLO 
SI NO 

IR A COMPRAR TABACO 
FIN SI 



En este caso, para resolver nuestro pro- 
blema, debemos repetir una acción deter- 
minada, mientras se cumpla una determi- 
nada condición. Como es lógico, para que 
la repetición finalice, los términos de la 
concfición deben poderse modificar du- 
rante la ejecución de la acción. Cada vez 
que se ejecuta la acción, diremos que se ha 
efectuado una iteración de la estructura 
repetitiva. Antes de volver a repetir la ac- 
ción, observamos si la condición para que 
se repita el proceso sigue existiendo. 

Veamos un nuevo ejemplo. Suponga- 
mos que decidimos fumar sólo los domin- 




gos. Antes de buscar nuestro tabaco y an- 
tes incluso de saber si tenemos tabaco he- 
mos de saber si es domingo, o no. Si no es 
domingo, repetiremos nuestro ritual. Si es 
domingo, haremos algo distinto. El algo- 
ritmo se escribe ahora de la siguiente ma- 
nera: 

SI es domingo ENTONCES 
SACAR TABACO 
COGER FUEGO 
ENCENDER CIGARRILLO 
SI NO 

IR A TRABAJAR 
FIN 

Aquí, los días de la semana van co- 
rriendo, de tal forma que la condición 
para la repetición de la acción se modi- 
fica de forma automática. 

Este algoritmo podría servir para 
una semana entera. La acción se inicia- 
ra el lunes. Cuando llegamos a la sen- 
tencia FIN, volvemos al inicio de la es- 
tructura repetitiva. Esta condición la 
volvemos a evaluar cada día de la sema- 
na, por la mañana. Cuando llegamos al 
domingo, la condición para la estructu- 
ra repetitiva se cumple, y saltamos en- 
tonces a la rutina fumar. 

Hemos visto, de esta manera senci- 
lla, como se llega a escribir programas 
muy sofisticados. Todo se basa en un 
análisis minucioso de cada una de las 
circunstancias del problema que que- 
remos resolver. El desarrollo de pro- 
gramas es, pues, una labor estrictamen- 
te artesanal. Esta dimensión humana 
de la programación contrasta con la 
aparente «frialdad» de los ordenado- 
res, y se traduce en que es mucho más 
difícil escribir un buen programa que 
inventar una determinada máquina. 
Los programas deben ser experimenta- 
dos; deben someterse a su prueba en 
las circunstancias reales. Y las circuns- 
tancias de la realidad son para todos 
iguales, ordenadores incluidos. Por 
ello, constantemente van apareciendo 
nuevas versiones de los programas de 
calidad que están comercializados. El 
saber programar es indispensable si 
queremos utilizar un ordenador con 
cierta autonomía. Sin embargo, debe- 
mos saber qué es lo que nosotros pode- 
mos programar. Las mejores aplicacio- 
nes llevan varios años siendo experi- 
mentadas y corregidas por equipos 
profesionalizados. 

Por lo tanto, y a modo de resumen 
recomendamos que para iniciarse en la 
programación, escriba cortas rutinas 
siguiendo las estructuras expuestas an- 
teriormente, pruébelas y cuando tenga 
la seguridad de que funcionan, intro- 
dúzcalas como subrutinas en una es- 
tructura superior, cuya lógica haya sido 
probada anteriormente. 
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Programación 







ESTRELLA DEL 



Este programa diseñado por González & Gue- 
rrero es un buen ejemplo de programa estructu- 
rado. En este sentido los REMS han sido coloca- 
dos estratégicamente de modo que ayuden a des- 
cifrar el listado evitando explicaciones super- 
fluas. Este listado se ha diseñado en principio 
para presentar una película de vídeo familiar. So- 
bre el modo de emplear el ordenador MSX como 
titulador de películas domésticas de vídeo. 



30 
40 
50 
70 
90 

100 

110 
120 
140 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 
320 
350 
360 
365 

380 

400 

420 
440 
450 
460 
470 
480 
490 
510 
530 
550 
570 
580 
590 

600 

610 
630 



KEY OFF 
COLüR 15,5,1 
SCREEN 2,3 

REM DIBUJO DEL CIELO 
FOR H%mi TO 200 

X=RND ( 1 ) *255 : Y=RND ( 1 ) *191 

PSET (X,Y) ,11 

NEXT 

REM DIBUJO DE LOS PLANETAS 
R=3.141593#/180 
CIRCLE (255,10) ,50,10 
PAINT (255,10) ,10,10 

(255,10) ,70,14,R*130, , .25 
(255,10) ,80,14,R*100, , .35 



(255,35) ,14,14 

(40,30) ,20,9 
(40,30) ,9,9 
(120,100) ,20,11 ,R*100,R*265,1 
(140,100) ,30,11 ,R*140,R*225,1 
(105,100) ,11,11 



CIRCLE 
CIRCLE 
PAINT 
CIRCLE 
PAINT 
CIRCLE 
CIRCLE 
PAINT 

CIRCLE (20,160) ,20,8,, ,1 
PAINT (18,150) ,8,8 
CIRCLE (40,160) ,8,8,,,1 
CIRCLE (155,370) ,200 ,3 ,R*50 ,R*130 , 1 
PAINT (155,185) ,3,3 
REM PRESENTACION DEL TEXTO 
OPEN "GRP:"FOR OUTPUT AS #1 
DRAW "BM65,45" 
COLOR 1 



CLOSE 

REM LECTURA DATAS EN A(*) 

DIM A*(5) 

FOR M"¿ = 1 TO 5 

FOR N"¿=1 TO 8 

READ X* 

A* ( M"¿ ) =A* ( M% ) +CHR* ( VAL ( " &B •' +X* ) ) 
NEXT t4% 
NEXT H% 

REM CONSTITUCION DE LOS SPRITES 

SS f IH <5> =A * ( 1 } sSPRITE * <6> =A* (2) +A* (3) +A* (4) +A* (5) 

REM BUCLE QUE GENERA LOS DESPLAZAMIENTOS 

X1=15:X2=245:K=2 

FOR X=X1 TO X2 STEP K 

Y=SIN (T) *30+50+X* .25 

Yl=80+X*.8-30 

PUT SPRITE 5, (X,Y) ,10,5 

REM APARICION DEL VEHICULO ESPACIAL 




20 



650 
660 
670 
680 
690 

700 

710 
720 
740 
750 
770 
790 
810 
830 
850 
890 
910 
920 
930 
940 
950 
960 
970 
980 

1000 
1020 
1030 
1040 

1-050 

1060 
1070 

1080 

1090 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 



6,<X*1„5,Y1) ,15,6 
20 :NEXT L 



IF Yl>191 THEN 710 
PUT SPRITE 6,<X*1.5,Y1) ,6,6 
FOR L=l TO 20:NEXT L 
IF YK35 OR Yl>150 THEN 710 
PUT SPRITE 
FOR L=l TO 
REM 

REM SONORIZACION DEL MOVIMIENTO 

IF <X MOD 5)=1 THEN PLAY " V1505L64AF" 

T=T+R*18:NEXT 

REM CAMBIO DE DIRECCION 

SWAP XI ,X2:K=-K 

REM SONORIZA EL CAMBIO 

PLAY "V1505L64ABCDEF" 

REM BUCLE INFINITO 

REM DIBUJO DEL INVASOR SPRITE* < 5) 
DATA 00100100 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 



0001 1000 
00111100 
01100110 
11011011 
01111110 
00100100 
00000000 

DIBUJO DEL 

00000000 
00000000 
00000000 
00000000 
00000011 
0000001 1 
00001111 
00010010 

00110010 
01111111 
11111111 
00011100 
00001000 
00000000 
00000000 
00000000 

00000000 
00000000 
00000000 
00000000 
11000000 
11000000 
11110000 
01001000 

01001100 
11111110 
11111111 
01110000 
00100000 



VEHICULO SPRITE* (6) 




1340 
1350 
1360 

1400 

1410 
1415 
1420 
1430 



DATA 
DATA 
DATA 
OPEN 



00000000 
00000000 
00000000 

"GRP : " AS 



#1 



PRESET ( 35,140) 
COLOR 15 
PRINT #1 , 
GOTO 1430 



♦♦ESTRELLAS DEL DESIERTO**" 



21 



Programa estrella 



GOLF 



Este programa de Juan José 
Diez-Miguel Sánchez se ha ga- 
nado con mucho merecimiento 
el estrellato en nuestro EXTRA 
DE VERANO, pues es uno de 
los más entretenidos y trabaja- 
dos que hemos recibido. ¡Felici- 
taciones! 



Instrucciones 



Este juego consiste en recorrer un hoyo por un campo de 
golf. Para cubrir dicho recorrido disponemos de 8 palos, los 
cuales del 1 al 7 mandan la pelota a diferentes distancias, 
mientras que el octavo se utiliza para golpear la pelota en los 
bunkers efe arena. El palo número 1 se destina para golpes 
cortos (putt), por lo que no da elevación de pelota. 

En este juego tienes que, además de elegir el palo adecua- 
do para cada tiro, fijar la dirección de la pelota establecien- 
do el ángulo correspondiente entre o y 360°, introduciendo 
en el ordenador tres cifras, de modo que si deseas 45° debes 
introducir 045. 

El ángulo de elevación varía de o a 45°, es decir que de- 
bes introducir dos cifras en el ordenador. 

La distancia que fija cada palo es para un golpe con el má- 
ximo ángulo de elevación. 

Si caes en el agua, la pelota retrocederá hasta la orilla y se 
te contará un golpe más, igual que en el juego real. 

En el caso de que caigas en un bunker de arena, el orde- 
nador MSX elige automáticamente el palo n.° 8 y lo único 
que tienes que hacer es fijar el ángulo que creas correcto, ya 
que si dejas esto al aparato éste lo hará aleatoriamente v pue- 
de enviarte la pelota a las nubes o dejártela en el bunker. 

Cuando la pelota es enviada fuera del green, vuelve a la 
posición anterior y se te cuenta un golpe más. 

En la parte inferior izquierda aparece un contador elec- 
trónico de los golpes que llevas y al conducir el hoyo te indi- 
ca cual es tu posición con respecto al par. 

Ampliaciones 

Juan José Díaz-Miguel Sánchez nos comenta que este jue- 
go puede ser mejorado y da una serie de instrucciones para 
ampliar la cantidad de hoyos, por ejemplo. 

- Utilizar los mismos colores: 7 para el agua; el 10 para los 
bunkers; el 12 para el green; el 2 para el campo y el 14 
para la bandera. No utilizar estos colores para otros ele- 
mentos. 

- Emplear las subrutinas 5000 para el hoyo 2; la 6000 para 
el 3, etc. 

- Para las coordenadas del agujero (XH, YH) y para la pe- 
lota (X,Y) utilizar la subrutina 5800 para el hoyo 2, 6800 
para el 3, etc. (Ver líneas 70 y 75). 

- Cambiar la línea 2755 (2755 GOTO 2755) por el 2755 
GOTO 70. 

- Introducir en cada hoyo las variables longitud (L% ) y par 
(K%). 

- Para una mayor seguridad conviene estudiar el hoyo 1 en 
las subrutinas 4000 y 4800. 



10 REM ****** 

15 REM *G0LF* 

20 REM ****** 

25 COLOR 1.10.1 

30 PI=ATNCn*4 

35 0PEN"GRP:" AS ttl 

40 SCREEN 2 

45 H0Y0=1 

50 GOSUB 1000 

55 GOSUB 1200 

60 GOSUB 1400 

65 GOSUB 1600 

70 ON HOYO GOSUB 4000, 5000, ETC 

75 ON HOYO GOSUB 4800 . 5800 . ETC 

80 GOSUB 1800 

85 GOSUB 2000 

90 ON SPRITE GOSUB 2700' 

95 SPRITE ON 

100 A$="U12T200O6L8EDL4CO5AO6D^EL8DCO5L4 
B06L8EDL4CL805BAL2G#A" 

105 C$- "U9T200R2O3L8AGL4FDEF#G#EADEEL2A" 

1 10 F$="U10T200O5L8CO4BO5L4CL8DEL4FL8O4B 

AL4BL805CDL4E04L8AGL4A05L8DCL204B05C" 
115 PLAY A$ 

PLAY A$,C$ 
PLAY A$,C$.F$ 
GOSUB 2200 
P*=0:AL=0:BE=0 
A$=INKEY$ 
IF A$ = ,lM THEN 140 

p*=ualca$o 

if p*<1 or p*>8. then goto 140 

GOSUB 2250 :F0R 1=0 ÍO 600:NEXT i 
GOSUB 1400 



120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
OTO 
260 
265 
270 
275 



175 



195 



GOSUB 2300 
A$= I NKEY$ 
IF AS=" M THEN 
Al=UALCAÍO 
GOSUB 2340 
B$=[NkEY$ 
IF B$="« THEN 
A2^UALCB$D 
GOSUB 2360 
C$=INKEY$ 

IF C$-»« THEN GOTO 215 
A3=UALCC$3 

GOSUB 2380:F"OR 1=0 TO 600:NEXT I 

AL$=A$+B$^C$ 

AL=UAL C AL$1 

IF AL>359 THEN AL=0 

GOSUB 1400 

IF P*=8 THEN BE=INTCRNDC-TIME3*463 :G 
325 

IF P*=i THEN BE=0:GOTO 325 

GOSUB 2^00 

A$=INKEY$ 

IF £$=««• THEN 270 
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280 B1=UALCA$3 

285 GOSUB 2440 

290* B*= INKEY$ 

295 ÍF B$="" T HEN 290 

300 B2=UALCB$3 

305 GOSUB 2480 -FOR 1-0 TO 600:NEXT I 

310 BE$=A*+B$ 

315 BE=UALCBE$3 

320 IF BE>45 THEN BE=45 

325 GOSUB 1^00 

330 G*=G*+1 

335 GOSUB 2500 

340 GOSUB 1600 

345 ON P% GOTO 350.355.360.365.370.375.3 
80.385 

350 E=10:GOTO 390 
355 E=50:T=7:GOTO 390 
360 E=100:T=8:GOTO 390 
365 E=150:T=9:GOTO 390 
370 E=200=T=10:GOTO 390 
375 E=250:T=11 :GOTO 390 
380 E=300:T=12:GOTO 390 
385 E=75:T=8:G0T0 390 
390 Q=CINTCE*256/10003 
395 B=BE*2*PI/360 

400 IF P*=l THEN F=0:R=4:GOTO 415 

405 F=CINTCC2*Q*SINCB33/SQRC233 

410 R=CINTCF/T3 

415 A=AL*2XPI/360 

420 Xl=X-CINTCFXCOSCA3 3 

425 Y1=Y-CINTCF*SINCA33 

430 IF P*=l THEN GOTO 475 

435 XC=CX+X13/2:YC=CY+Y13/2 

440 H=CSQRC CX-X13^2+CY-Y1 3~23 3/2 

445 PLAY"U10T255B" 

450 IF X>=X1 AND Y>=Y1 THEN GOSUB 2800 

455 IF X>X1 AND Y<Y1 THEN GOSUB 3000 

460 IF X<X1 AND Y>Y1 THEN GOSUB 3200 

465 IF X=<X1 AND Y=<Y1 THEN GOSUB 3400 

470 FOR 1=0 TO 200:NEXT I 

475 PUT SPRITE 1 . CXI . Yl 3 . 1 . 2 

480 D=POINTCXl . Y13 

485 IF D=7 THEN GOTO 800 

490 IF D=10 THEN X=X1 :V=Y1 :GOTO 900 

495 FOR 1=0 TO 2*R 

500 FOR J=l TO 200:NEXT J 

505 XI=CINTC2*COSCA3 3 :YI=CINTC2*SINCA3 3 

510 X1=X1-XI :Y1=Y1-YI 

515 PUT SPRITE 1 . CXI , Y 1 3 . 1 , 2 

520 BEEP 

525 D=POINTCXl , Y13 

530 IF D=7 THEN GOTO 800 

535 IF D=10 THEN X=X1 :v=Yl :GOTO 900 

540 NEXT I 

545 FOR J=l TO 200:NEXT J 
550 D=POINTCXl , Y13 

555 IF DO10 AND D<>12 AND D<>7 AND D<>2 
AND DO 14 THEN GOSUB 2000 :P*=0 : AL=0 :BE = 
0:GOSUB 1400:GOTO 130 
560 X=X1 :Y=Y1 

565 P*=0:AL=0:BE=0:GOSUB 2000:GOSUB 1400 

570 GOTO 130 

800 FOR 0=1 TO 500 

805 XO=CINTCO*COSCA33 :YO=CINTCO*SINCA33 

810 X=X1+X0:Y=Y1+Y0 

815 GOSUB 2000 

820 D=POINTCX,Y> 

825 IF D=2 THEN GOTO 835 

830 NEXT O 

835 G*=G*+1 

840 GOSUB 1600 



845 P*=0:AL=0:BE=0:GOSUB 1400 

850 GOTO 130 

900 P*=8:AL=0:BE=0 

905 GOTO 165 

1000 REM DEFINICION DE SPRITES 
1005 FOR 1=1 TO 8 
1010 READ B$ 

1015 A$=A$+CHR$CUALC "8,B"+B$3 3 

1020 NEXT I 

1025 SPRITESC 1 3=A$ 

1030 FOR 1=1 TQ 8 

1035 READ C$ 

1040 D$=D$+CHR$fUALC"&B"+C$3D 

1045 NEXT I 

1050 SPRITE$C23=D$ 

1055 DATA1 1000000 

1060 DATA1 1000000 

1065 DATA00000000 

1070 DATA00000000 

1075 DATA00000000 

1080 DATA00000000 

1085 DATA00000000 

1090 DATA00000000 

1095 DATA10000000 

1100 DATA00000000 

1105 DATA00000000 

1110 DATA00000000 

1115 DATA00000000 

1120 DATA00000000 

1125 DATA00000000 

1130 DATA00000000 

1135 RETURN 

1200 REM DIBUJO DE PALOS. ANG.q; Y ANG. 6 
1205 LINEC0.03-C47. 1 113, 15. BF 
1210 PSETC3.6 3. 15:PRINT*1, "PALOS" 
1215 LINEC3, 15 3-C.39. 153,1 
1220 PSETC3, 213. 15:PRINT#1. "1=10" 
1225 PSETC3, 313. 15:PRINf#l. "2=25" 
1230 PSETC3,413. 15:PRINT#1, "3=75" 
1235 PSETC3.513. 15:PRINT#1. "4=125" 
1240 PSETC 3,613. 15:PRINT#1. "5=175" 
1245 PSETC3, 713. 15:PRINT#1, "6=225" 
1250 PSETC3,813. 15:PRINT#1. "7-275" 
1255 PSETC3 r 913. 15:PRINT#1, "8=BUN" 
1260 PSETC3 P 1013. 15:PRINT#i. 11 KER" 
1265 LINEC48,03-C127,293.8.BF 
1270 LINEC95, 1 83-C 1 21 , 183 % 1 
1275 LINEC 108.23-C108. 283,1 
1280 DRAU"C1BM108, 18H11 - 

1285 CIRCLEC108. 183,4, 1,3, 1416*3/4. 3. /*j 1 
6 

1290 PSETC93, 1 3 . 8 :PR I NT# 1 , ri cr M 

1295 PSETC54,33.8:PRINT#1 / " ANGa" 

1300 LINEC53, 123-C83. 123. 1 

1305 PSETC 50, 203. 8 :PRINT#1. "0-360" 

1310 LINEC128.03-C207.293. ll.BF 

1315 LINEC170, 183-1202. 183, 1 

1320 PSETC134,33. 11 :PRINT#l r " ANGB " 

1325 LINEC133, 123-C163. 123, 1 

1330 PSETC 134^203. 11 :PRINT#l t "0-45" 

1335 DRAUJ"C1BM202. 18H14" 

1340 C IRCLE C 186. 333. SQRC 32^-2/2 3. 1.3. 1416 
/4,3*3. 1416/4 

1345 CIRCLEC202. 183.8. 1.3*3. 1416/4.3. 141 
6 

1350 PSETC 190. 21 3. 11 :PRINT#1 . "8 " 
1355 RETURN 

1400 REM EXPOSICION DEL PALO , ANG . a Y ANG 
.8 ELEGIDOS 

1405 LINE C0, U23-C47, 1423 t 13,BF 

1410 PSETC 3, 1153, Í3:PRINTtÍj "P-" : :PRINTtt 

l,USING M it#*t« ;P% 



i 
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1415 PSETC3. U5>VÍ3íPRINT#;Í/V= ri í :PRINT# 
1 ,USING"*##" ;AL 

1420 PSETC3. 1353. 13:PRINT#1. "6=" í :PRINT# 
1, JSING ;BE 
1425 RETIIRN 

1600 REM EXPOSICION DE GOLPES V PAR AL f 
ERMINAR EL hOVO 

1605 L INEC0, 1*3} : C47, 1911, 5, BP 

1610 PSETf 1, 145 3 , 13:PRINTttl, "GOLPES" 

1615 L [NEC 1 , 1 54 Ü -C 46 ,1541,1 

1620 PSErri # 1581, 13 :PR [N^ 1 , USING"^**" ; 

G% 

1625 PSErr 1, 1681, 13: p RINfttl, " PAR" 

1630 L INET8, 1771 -f31 . 1771, i 

1635 PSET f 1 , 1821. 13 :PRINT4 1 , USING" 'tif»ttt" ; 

1640 RrrjRN 

1800 REI EXPOSICION DE L A I ONG I r LID V El 
PAR DEL HOVO 

1805 L I NEf 208,01 -f 256, 291, 9. «p 

1810 PSETr213,21,9:PRINrftL,* l | ONG." 

1815 PSE r r 2 1 3, 1 1 1 . 9 : PR I N ri| i r us I NG M *f « * H w ; 

i% 

1820 PSEír2l3,21 1.9:PRINÍ»n . U PAR"; :PRINF 

t»i, using h *t* m ?K* 

1825 RETURN 

2000 REM PQSICIONAMIENTO D-": SPRITrs 

2005 PUT SPRITE 2, fXH f vin, 1 , 1 

2010 PUT SPRÍ^E l,fX r vi t i t 2 

2015 RETURN 

2200 REM "f1EJ£ PALO" 

2205 L INEC48, 181 1 - C256 t 1921. 15 r B' T 

2210 PSET 49 , 1 83 1 , 1 5 : p R I N H| 1 , ** PÍE TE r\ N 

Un. DEL. PALO-=** 

2215 RETURN 

2250 REM METE 

2255 PSET f 230, 1831, 15 : p R I N í*#2 , US I NG " % " ;° 

2260 RETURN 

2300 REH "METE a" 

2305 LI NEC 48, 181 1 -f 256, 1921, 15, BP 

2310 PSET C 50. 1831 , 1 5 :°RÍ NTJrl . " ANG.a CON 

3 CIERAS=" 

2315 RETURN 

2340 reh METE Aj. 

2345 PSETC215, 1831, 15 :PRINTin f USING"*" ¡A 

2350 RETURN 
2360 REM METE A2 

2365 PSETC225. 1831. 15 :PRINTJH, USING"*" ;A 

2370 RETURN 
2380 REM METE A3 

2385 PSETC235. 1831. 15 :PRINT#1, USING"**" ;A 
3 

2390 RETURN 

2400 REM "METE 13" 

2405 LINEC48. 181 1-C256. 1921. 15. BE 

2410 PSETC49. 1831. 15:PRINT#1, " ANG.G CO 

N 2 CIERAS^" 

2415 RETURN 

2440 REM METE Bl 

2445 PSET C 225. 1831. 15 :PRINT#1 . USING"tt" }B 

2450 RETURN 
2480 REM METE B2 

2485 PSET C 235. 1831, 15 :PRINT#1 , USING M i+" ;B 
2490 RETURN 



2500 REM "PELOTA EN MOU [MIENTO" 

2505 L I NE f 48, 1801 -T256. 1911. 15. BE 

2510 PSETr50. 1841, 15:PRINTttl. " PELOTA E 

N MOU [MIENTO " 

2515 RETURN 

2700 REM CHOQUE DE SPRITES 

2705 PLAV'L 4CCC", "U14R4L404EE" , "Ú15R4R4L 

404G" 

2710 PLAV"U15L405CCC", "U10L4O4CCC" , "U15L. 
406CCC- 

2715 L tNEf48 fc 181 1 -T256. 1921. 15. BP 

2720 PSETf 50. 1831. 15:PRINT#1. "HOYO NUM.*' 

í :Pfi? INTUI f USiNG"##" iHOVO; :PRINT#1, " T"ERM 

[NADO* 

¿725 m^m+m 

2730 üjV-G-í -MS 

2735 bOSUB 1600 

2740 HO^-HOvaM 

2745 SPRI TE OE^ 

2750 POR 1-0 FO 2000:NEXT I 

2755 GOTO 2755 

2800' REM TRAVECTORIA CUANDO X*>^X1 V v>=y 
1 

2805 EOR [--X tq XC+H 

2810 2 l--VC+SÜRi'ABS f h^2-f I-XC1~21 1 

2815 PUT SPRITE l,fí,?ll,l,2 

2820 NEXÍ I 

2825 EOR I-XOH tq xi STEP -1 

2830 72-- ve -SQR C ABS f H "2 - f I -XC 1 "2 1 1 

2835 PUT SPRITE l,f 1,221, 1,2 

2840 NEXT f 

2845 RE r URN 

3000 REM r RA v EC FOR I A CUANDO XVX.l V v<Yl 

3005 EOR Í^X TO XG-H S r EP -1 

3010 Z2--vc-SQRfABSf H^2-f I-XC1 "211 

3015 PU^ SPRITE 1, f i, 221, 1.2 

3020 NEX r I 

3025 EOR I=-XC-H T XI 

3030 Zl--VC^SQRrABSrH^2-f I-XC1 "211 

3035 PUF SPRITE 1,CÍ,?1 1,1,2 

3040 NEXT" I 

3045 RETURN 

3200 REM trqyect/ORIA CUANDO X^Xl v v>yi 

3205 EOR I^X TO XC-H S r EP -1 

3210 21 -VC+SQRf ABSfH A, 2-f I-XC1 "211 

3215 PUT SPRITE l,t 1,211, 1.2 

3220 NEXT I 

3225 EOR I=XC-H tq XI 

3230 Z2^vc-SQRCABSCH"2-r I-XC1 "21 1 

3235 PUF SPRITE l.f 1,221,1.2 

3240 NEXT I 

3245 RETURN 

3400 REM TRAYECTORIA CUANDO X^<X1 v y=<y 
1 

3405 EOR I-X to XC+H 
3410 Z2^vc-SQRf ABSC H^2-f I-XC1"21 ) 
34 15 PUT SPRITE l,f 1,221, 1,2 
3420 NEXT I 

3425 POR I^XC^H tq XI S T EP -1 
3430 Zl^YC+SQRrABSrh"2-r I-XC1 "21 1 
3435 PUT SPRI TE l,f 1,711, 1,2 
3440 NEXT I 
3445 RETURN 

4000 REM DIBUJO DEL HO v O NUM. 1 
4005 L^540:K*=4 

4010 L [NET48, 301 -f 256, 1801 , 3 , BP 
4015 LINEC53, 1 39 1 - C 53, 69 1 , 2 
4020 CIRCLEf85,691,32.2,PI/2,P[ 
4025 CIRCLEf85,731 f 66 t 2,0,PT/2, 18/33 
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4030 LÍNEU51.731-U51.871.2 

4035 GIRCI Ef 197, 8?1, 46, 2, PI, 3XPI/2, 18/23 

4040 LI NEC 197, 1231 -C 2! 7, 1233.2 

4045 C IRCLEf 21 7, 1371,28,2. 0. P 1/2, 1^2 

4050 L í NEC 245, 137") -f 245, 147 j. 2 

4055 C I RCLE G215, 1*71, 30, 2. 3*p 1/2, 2*PI , 10 
/15 ' 

4060 CIRCLEC215, 1 57 1 , 26, 2, P I . 3*P [ /2, 5/ 1 3 

4065 C I RCLE f 1 73. 1 57 V, 1 6. 2, 0. P 1 , 3/8 

4070 C I RCLE f 1 1 9, t 57) , 38, 2, 3*p I ¿2, 2*P 1 , 5 ' 

4075 L INEC119. 1671-f81. 1671.2 

4080 C I RCLE f 8 1 . 1 39 1 , 28 . 2 , P 1 , 3* p I /2 

4085 PA [NT C 100. 1001 . 2 

4090 C I RCLE f 83. 65 1.20, 12ÍPI'2, PI 

^095 CIRCLEf 83. 671. 22. ! 2 . . P i /2 . 1 \ ' 1 

4 100 CIRCLEC91 .671. 16. 1 2 . 3*P I /2 . 2*P I . 4/3 



CIRCLEf91.651.28. 12. PI . 3XPI/2. 9/14 
PAINTf90 k 651. 12 
CIRCLEf 133.731. 10. 7. 0. P I . 5/4 
CIRCLEf 101. 731. 52.7. 3*P 1/2, 2*P 1.26/ 

CIRCLEf 101. 1191. 18.7.PI.3*PI/2. 1/3 
CIRCLEf 71. 1191. 12.7.0.PI.2/3 
CIRCLEf 103. 1191.44.7.PI,3*PI/2. 17/2 



4105 
4110 
4115 
4120 
12 

4125 
4130 
4135 
2 

4140 CIRCLEf 103. 1 05 1 . 48 . 7 . 3*P I /2 . 2*P I . 24 
/19 

LINEf 141.731 -f 141, 1051.7 
PAINTf 130. 1201.7 

CIRCLEf 105. 471 . 2. 1 . P I /2 . 3*P ! /2 
CIRCLEf 105.571.8. 10. 0. P 1/2. 4/3 
CIRCLEf 113.571.4. 10.PI.2XP 1.2 
CIRCLEf 105.571. 12. 10.0. PI/2. 6/5 
PAINTf 113.571. 10 
CIRCLEf 1 13.71 1.2. 10.0.PI 
CIRCLEf 99. 71 1.20. 10.3*P!/2.2*PI, 10/ 

CIRCLEf 99. 71 1.26. 10, 3*PI '2. 2*PI , 13/ 

CIRCLEf 99,941 . 3. 10. PI/2, 3*PI/2. 3'2 
PAINTf 99, 941 . 10 

CIRCLEf63.811,2, 10.0.PI 
CIRCLEf 77, 81 1 , 12. 10. P 1 . 3XP.I/2, 2/3 
CIRCLEf 77. 811. 16. 10. p.I , 3*PI '2 
CIRCLEf 77. 931 .4. 10;3*PT /2. p 1/2 
PAINTf 77. 931. 10 
LINEf 73.631 -f73. 53.1. 14 
DRCHjj"C14fi4-6.4-3n-6. +3" 
PAINTf 74. 551 . 14 

PSE^f 190.901. 1 

DRAu)"C15R35U20L35D20 M : p A [NTf 195, 851 

LINEf 197.91 1-f 197.981. 1 
LINEf218.911-f218.981. 1 
PSETf 194.721. 15:PRIN r itl . "HOYO" 
PSETf 194.821. 15:PRINT#i . "NUH1 " 
C I RCLE f 1 70 , 85 1 . 6 . 1 3 . p ! . 2* p 1,4/6 
CIRCLEf 170.851. 14, 13.0, PI. 14/6 
LINEf 169. 90 1-f 171.961. l.B^ 
PPINrri70.851. 13 

CIRCLEf 239. 1031.6. 1 3. p I . 2*PI . 4/6 
CIRCLEf 239, 1 03 1 , 1 4, 1 3, , P I, 14/6 
PAENTf239, 1031, 13 
LINEf 238. 1081 -f 240, 1141, 1 , BF 
AR$="ClNM-2, -3NM-1 , -7NM+3, -6NM+3, -2 



4150 
4155 
4160 
4 165 
4170 
4175 
4 180 

4185 
6 

4190 
8 

4195 
4200 
4205 
4210 
4215 
4220 
4225 
4230 
4235 
4240 

4245 
4250 
. 15 
4255 
4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 
4315 




4320 PSEff 181 . 1041. 1 :DRAW AR$ 

4325 PSETf224. 1 143, 1 :DRAUJ AR$ 

4330 PSEK209. 1071. 1 :DRAUi AR$ 

4335 PSETf 166, 1681 . 1 :DRAUJ AR$ 

4340 PSETf 178. 1731. 1 :DRALü 

4345 CIRCLEf 165. 1301. 10. 10.0, P 1/2. 5/4 

4350 CIRCLEC 159. 1303. 14, 10,.3*PI/2.2*PI 6 

/7 

4355 CIRCLEf 159. 130 3. 12. 10.PI . 3*PI/2. 3 

4360 CIRCLEf 165. 1 303 . 1 0. 10, PI /2, PI 

4365 PAINTf 165, 1301. 10 

4370 RETURN 

4800 REM COORDENADAS DE LA PELOTA Y DELA 

GUJERO , EN EL HOYO NUM. 1 

4805 X-233+INTCRNDC- TIME 1*71 

4810 Y--135+INTfRNDf-riMEl*2l 1 

4815 XH = 83 :VH--63 

4820 RE r URN 
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El MSX por dentro 





¡HOLA! AQUI 
MSX AL APARATO 



La entrada RS-232C es la puerta que 
usan los MSX para conectarse con el 
exterior y entrar en comunicación con 
una amplia gama de periféricos y con 
otras máquinas compatibles. Comu- 
nicar un ordenador con otros es más 
fácil de lo que puede suponerse. 



Una de las cosas más interesantes 
para los usuarios de un mi- 
croordenador MSX es poder 
comunicarse con otros similares y au- 
mentar las posibilidades de uso. 

Para este punto conviene tener en 
cuenta en primer lugar aue los datos 
pueden ser unidireccionales o bidirec- 
cionales, según el artefacto que se co- 
necta. A modo de ejemplo, podemos 
decir que algunas impresoras están di- 
señadas para ser conectadas a una en- 
trada RS-232C y, en principio, no tie- 
nen porqué devolver los datos al orde- 
nador, pero suelen hacerlo. Las razo- 
nes las veremos más adelante. 

El modo de conexión 

La práctica común para una entrada 
RS-232C es la de conectar los aparatos 
MSX entre sí a través de un modem y 
una línea telefónica. Pero la variedad 




Entrada RS-232C de un ordenador MSX. 



de aparatos que pueden ser conectados 
a la entrada significa que tenemos que 
emplear un software especialmente di- 
señado para cada caso. Esto se debe a 
que ningún ordenador envía o busca 
datos de modo automático, lo cual 
obliga a que tengamos que decirle 
cómo y cuando tiene que realizar la 
operación. 



Para tener una idea clara de lo que 
sucede con los datos en el interior del 
ordenador, llamaremos palabras a los 
grupos de 8 bits. Una vez determinado 
esto recordaremos que todas las comu- 
nicaciones que se realizan a través de la 
RS-232C utilizan los caracteres del len- 
guaje ASCII, de modo que cada pala- 
bra consiste en un número de bits que 
equivalen a un carácter por un lado y 
en otro número de bits, por otro, cuya 
misión es la de identificación y control. 
De acuerdo con esto una palabra pue- 
de tener una longitud variable, es de- 
cir, de sólo cinco bits o de dieciseis, se- 
gún sea su aplicación. 

Hay muchas comunicaciones del 
tipo RS-232C que representan caracte- 
res de siete bits, lo que significa que 
el conjunto completo de caracteres 
ASCII no puede ser transmitido sin 
echar mano a recursos especiales. 

Una palabra de datos que sale de la 
entrada RS-232C puede representarse 




El MSX por dentro 

del siguiente modo, leyéndolo desde 
derecha a izquierda: 
ENTRADA PlnnnnnnnQ PERIFE- 
RICO 

Los bits «nnnnnnn» representan un 
carácter descrito por una combinación 
de siete bits, mientras que el bit «0» 
identifica el principio de la palabra de 
datos, la cual es muy necesaria para la 
sincronización del flujo, puesto que el 
ordenador y el periférico no suelen te- 
ner el mismo timer (reloj). El «1» final 
es el bit de parada e indica el final de la 
palabra. Como ya hemos señalado ésta 
puede tener distintas longitudes, las 
cuales son especificadas en el progra- 
ma de entrada de acuerdo a los siguien- 
tes números: el «1»= lxlbit; «2»= 
l,5xlbit; y «3»=2xlbit. 

Este modo de transmisión se llama 
asincrónico y se utiliza en los casos en 
que el periférico y el ordenador carez- 
can del mismo timer. La transmisión 
sincrónica, que se emplea en sistemas 



denes Xon/Xoff, el final de una línea 
de datos por medio de EOL y el final 
de una columna con la especificación 
EOF. En muchos casos estos caracte- 
res son definidos por un uso normal. 
De todos modos, hay suficientes ex- 
cepciones en la actualidad como para 
que sea necesario, cuando se programa 
la entrada, definir exactamente dichos 




de transmisión más sofisticados con ti- 
ming sincrónico, es aquella que no ne- 
cesita bits de parada. 

La «P» es el llamado parity check o 
control de paridad. Este es un bit op- 
cional que puede ser usado para con- 
trolar errores a la punta de recepción 
del sistema. El transmisor añade sim- 
plemente un bit si, cuando se le suma al 
resto de los bits, el resultado es un nú- 
mero par o impar, que pueden ser es- 
pecificados de antemano. 



Ordenes de control 

Las órdenes de control de datos son 
obviamente muy necesarias. El fluido 
de datos se controla a través de las ór- 



En este mismo sentido hay otro deta- 
lle que tiene que ser tenido en cuenta. 
Se trata de las funciones originarias de 
la tecla SHIFT-INT/OUT. Esta tecla 
ha sido configurada también para in- 
troducir en el ordenador en el modo de 
conjuntos de caracteres japoneses, por 
lo que la entrada tiene que programar- 
se para que ignore el carácter produci- 
do por esta tecla en sus versiones occi- 
dentales. 



La velocidad 

El envío de datos puede realizarse a 
distintas velocidades, de modo que 
tanto el ordenador como el periférico 
tienen que manejar una velocidad stan- 
dar. Es decir que no tiene sentido en- 



viar datos a una impresora a 9600 
bits/seg., si sólo puede manejar 280 
bits/seg., es decir unos 40 caracteres 
por segundo. De todas maneras, la ma- 
yoría de los periféricos son habitual- 
mente mecánicos en parte y tratan los 
datos por ráfagas. Esto significa que, 
por ejemplo, una impresora recepta los 
datos y no imprime un carácter hasta 
que no ha recibido la totalidad de los 
siete bits. Todos los datos que entran 
después los ignora hasta el momento 
en que haya impreso el carácter. Por 
este motivo las impresoras y muchos 
otros periféricos tienen un tope y un 
métocfo por el cual el ordenador detie- 
ne el envío de datos cuando se llega a 
dicho tope. 



Flujo de datos 

Como ya se ha dicho más arriba el 
flujo de datos puede ser controlado por 
los caracteres Xon/Xoff devueltos al 
ordenador a través de los hilos de 
transmisión de datos o activando el 
hilo «hand-shaking» (CTS) para que 
cumpla la misma función. 

Del mismo modo que impresoras y 
otros periféricos tienen topes, también 
lo tiene el ordenador para recibir datos 
procedentes del exterior. Esto quiere 
decir que necesita una manera de dete- 
ner tales datos entrantes si es necesario. 
El carácter Xon o Xoff puede cumplir 
con esta función o empleando el hilo 
RTS. Cuando el ordenador está conec- 
tado a otro ordenador vía modem, el 
único «handshaking» que puede con- 
trolar el ordenador distante es el carác- 
ter Xon/Xoff. 

Los usuarios que empleen adaptado- 
res MSX, como los de Toshiba por 
ejemplo, tienen la suerte de que la pro- 
gramación de entrada ha sido simplifi- 
cada por el firmware interno, lo que 
significa que está contenida dentro de 
un ROM en el interior de un cartucho 
adaptador. 



28 



Para una mayor claridad digamos 
que el firmware es una extensión del 
MSX BASIC que provee con un núme- 
ro de instrucciones nuevas que pueden 
ser obtenidas empleando una orden 
CALL. 

Un ejemplo práctico de programa- 
ción, velocidad de transmisión, pari- 
dad, largo de palabra, etc., puede ser el 
siguiente. Supongamos que pretende- 
mos usar nuestro ordenador MSX para 
comunicarnos con un buzón electróni- 
co MSX-NET, a través de un modem y 
una línea telefónica. El punto de arran- 
que es descubrir los formatos de la 
transmisión y los datos del sistema que 
está al otro lado de la línea y del propio 
modem para que la entrada pueda ser 
correctamente configurada. Así deter- 
minaríamos los datos: 

Largo de palabra: 7 bits 

Largo de bit de parada : 1 bit 

Paridad Igual 
Xon/Xoff Es usado 

Velocidad de transmisión 
(300bps=300baudios) 
300 (recepción)/ 300 baudios (envío) 
1200/ 1200 baudios 
1200/75 baudios 
Carácter EOL 
Carácter EOF 
Dúplex 



llllllhii.i 



vrr 



- Z 



CR-LF 
No usado 
Lleno 
(completo) 



Otros detalles a considerar son las 
peculiaridades del modem, porque de- 



La RS-232C comunica el MSX con peri- 
féricos y otros ordenadores MSX. 

terminan la velocidad de transmisión y 
el dúplex. Para ajustar correctamente 
la entrada MSX para la aplicación hay 
que meter un simple programa BASIC 
ya sea desde el teclado o a partir de un 
cassette o disco. La forma del progra- 
ma es la siguiente, suponiendo que el 
modem opere a 300 / 300 baudios y dú- 
plex completo. 

10 CLS: KEY OFF: WIDTH 39 
20 CALL COMINI («0: 
7E1XNNNS», 300, 300,0) 
30 CALL COMTERM («0: ») 

La explicación de este pequeño pro- 
grama es la siguiente: la línea 10 tiene la 
misión de limpiar la pantalla, apagando 
el display de la tecla de función y ajus- 
tando el ancho de la pantalla para al- 
macenar 39 caracteres, de modo que 
los bordes de los mismos no queden 
mutilados. 




La línea 20 llama a la instrucción de 
comunicaciones COMINI y con ella, la 
cadena siguiente, para determinar las 
variables. El primer número, represen- 
tando el periférico es siempre cero. Los 
caracteres siguientes a la columna de- 
termina el número de bits en la palabra 
(7), la paridad (E), el equivalente del 
largo del bit de parada (1), y el hands- 
haking Xon/Xoff (X). 

El resto ajusta el ordenador para que 
ignore el handshaking en los hilos 
CTS/RTS (N); evita la inserción de ali- 
mentación de línea después de cada 
vuelta del carro (N); envía alimenta- 
ción de una línea cuando la tecla RE- 
TURN del carro es presionada (N), y 
finalmente, inhabilita la tecla de con- 
trol SHIFT IN/SHIFT OUT que, con 
el MSX NET, normalmente se desco- 
nectaría del sistema. 

La figura 300, 300 indica la recep- 
ción y el envío del ratio de baudios y el 
cero final inhabilita la función Time 
out, que es el largo de tiempo en segun- 
dos que la entrada espera la señal de 
«handshaking». Cuando se la determi- 
na con cero la espera es infinita. 

La velocidad de transmisión -tam- 
bién llamada ratio de baudios-, es es- 
pecificada también en bits por segundo 
o en baudios que en términos generales 
son equivalentes. El adaptador MSX 
tiene los siguientes ratios de baudios: 
50,75, 110,300,600, 1200, 1800,2000, 
2400, 3600, 4800, 7200, 9600 y 19200. 
Las velocidades de transmisión y re- 
cepción pueden ser diferentes, como 
en el caso de Prestel donde el ordena- 
dor envía a 75 baudios pero recibe a 
1200. 

Por último, la línea 30 llama al pro- 
grama del terminal y ajusta las teclas de 
función de la siguiente manera: 
F6: enchufa y apaga el modo literal. 
Cualquier carácter de control es ex- 
puesto con el signo *. 
F7: pone el ordenador en medio dú- 
plex o dúplex completo. 
F8: enciende y apaga el eco del impre- 
sor. 



Transferencia de programas 

Dado que también pueden ser cons- 
truidos programas simples es posible la 
transferencia de programas de un or- 
denador a otro o bien la transferencia 
de datos entre ordenadores que em- 
plean órdenes BASIC hasta carga y 
descarga desde cassete o disco. De este 
modo el adaptador MSX RS-232C 
ofrece muchas posibilidades, además 
de ser de uso muy simple. 

Como puede apreciarse los ordena- 
dores del sistema MSX hasta se hablan 
por teléfono. 
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Para que te prepares para el 
juego de moda del próximo oto- 
ño te adelantamos este progra- 
ma. Se trata del «Loto», cuya 
mecánica te enseñamos. 



La maquina te preguntará por qué números apuestas y tú se lo indica- 
ras, seguidamente aparecerán en pantalla señalados los boletos con los 
números sorteados. Muy pronto comprobarás que es un buen ejercicio 
para cuando tengamos este juego en España. 

Por si quieres introducir mejoras, te damos la lista de variables: 



A 
A() 
A$ 
I 

XyY 



Número aleatorio 
Lista de cifras escogidas 
Ultima tecla pulsada 
Indice de bucle FOR/NEXT 
Indice de bucle FOR/NEXT 
Número de cifras a apostar 
Coordenadas en pantalla de cifras que 
aparecerán 



Las apuestas simples son con números de seis cifras y las múltiples 
con números de 7 a 10. 



10 
20 
30 
40 
50 
60 

;n 

70 

80 

90 

100 

1 10 

120 

130 

140 

150 

160 

170 

180 



REM**L0T0C ALEATORIO}*** 

REM**~riSX-CLUB ** 

DIMAC493 

SCREEN0:COLOR 4.1*. l:KEY OFF 
A=RNDC-CTIME/10DMOD 1003 
INPUT"NUMERO DE CIFRAS A T IRARC6-103 



IF N<6 OR N>10 THEN 40 
REf1***T IRADA*** 
REA 

FOR 1=1 TO N 

A=INTCRNDC 1 3*493+1 

IF ACA3=1 THEN 110 

ACA3-1 

NEXT I 

OPEN"GRP:'TOR OUTPUÍ AS#1 
REM***RESUL TADO*** 

REfl 

SCREEN2 :DRAüJ"Bf11 22. 



:PRINT#! . "LOTO" 



190 LINEC72. 17W198. 1813.6.B 

200 FOR l-Q TO 9 

210 FOR J=0 TO 40 STEP 10 

220 IF I+J=0 THEN 270 

230 XM0*J/10*3:v-3+I*2 

240 DRAW'Brr +STR$CX*8D + " . "+STR$CY*83 :PRI 
NTttl.USING"**" :i+J 

250 LINEC-X*8--2. Y*8-33-fX*8+16, Y*8+93.6.B 

260, IF ACI+J3M THEN L I NE C X*8 . Y*8-2 3 - i X* 
8+15. Y*8+83 
270 NEXT J 
280 NEXT I 

290 LINE INPUT A$:RUN 
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RELOJ 



Para que no te quedes fuera 
de hora, aquí te insertamos un 
programa que pone en pantalla 
un reloj. Este reloj MSX puede 
jactarse de ser tan preciso como 
sus hermanos suizos. 

Una vez que has ejecutado el 



programa tienes que darle la 
hora, los minutos y los segun- 
dos y comenzará a funcionar 
mientras en pantalla aparece la 
esfera y los números. Para que 
aparezcan las agujas tienes que 
pulsar cualquier tecla. 



10 

20 
25 
30 
40 
50 
60 
70 
80 
90 
95 



rem*** reloj *** 

rem*# msx-club** 
re m* ************ 

SCREEN0 -.COLOR 15.1.l:KEY OFF 
INPUT"H.M.S" :H.M.S 
H=H*5+INTf M/123 
OIM XÍ623.YÍ623 
SCREEN2 

OPEN"GRP:"FOR OUTPUT AS# 1 
GOSUB 500 

PSEÍC 10.03 : p RINTttl , "PONTE EN HORA CON 



96 PSETC 10, 180 3 :PRINT#1 , " MSX-CLUB DE PR 
OGRAMAS" 

100 A$=INPUT$C 1 3 

180 REM**MOUIMI ENTO DE LAS AGUJAS** 

190 RETI 

200 T I NE-0 
210 A-T I ME 

220 IF A <B THEN B=B-65536 ! 

230 IF B + 50 < A THEN B=B+50:S=S+1 ELSE 2 

10 

240 IF S<60 THEN 330 

250 S=0:M-I1+1 :IF M<60 THEN 220 

260 M=0 

220 IF INTfM'123 OM/12 THEN 320 
280 H=H+1 

290 IF H<60 THEN 310 
300 H^0 

3.10 LINEf 140, 1003 -f 140-30*XCH+1 3. 100 + 30* 
YCH+1 3 3 . 1 

320 LINEf 140, 1003 -C 140-40*Xf M+l 3 . 100 + 40* 
YCri+1 3 3 , 1 

330 LINEf 140, 1 00 3 - C 1 40-48*XC S+ 1 3 . 100+48* 
Y CS+1 3 3 . 1 

340 LINEf 140, 1003-f 140-30*XCH+23, 100+30* 
YfH+233 

350 LINEf 140. 1003-f 140-40*XCM+2 3. 100+40* 
Yf n+23 3 

360 LINEf 140. 1003-f 140-48*XfS+23. 100+48* 

YfS+2 3 3 

320 GOTO 210 

480 REi1**DISEÑ0 DEL. RELOJ** 

490 REM 

.500 CLS 

510 CIRCLEf 140. 1003.80.6 

.520 FOR 1=^-3.1415 TO 3.1515 STEP. 104717 

530 PSETf 140-50*SINf I 3. 100+50*COSf I 3 3 . 5 

540 XfZ+23-SINf 13 :vf2+23=COSf 13 

550 IF I NT fZ/53<>Z/5 THEN 610 

560 LINE-f 140-50*SINf 13, 1 00+55*COSf I 3 3 . 5 

570 IF 2=0 THEN 610 

580 IF 2/5=^3 OR Z/5=9 THEN DRAUJ"BM"+STR$ 



CINTf 140-65*SINf I 3 3 3 + ". "+STR$f INTCÍ 100+6 
5*C0Sf I 3 3 -63 3 :PRINTítl . RIGHT$Í STR$ÍZ/53 . 1 
3 :GOTO 610 

590 DRAbj"BM '+Sl~R$f I NT f 140-65*SINf I 3 3 3 + ", 
"+STR^f INTC 100+65*COSf 1 3 3 3 :PRINT#1 . RIGHT 
$fSTR$fZ/53. 13 

600 ! F Z'5>9 THEN DRAW"BM"+STR$C INTf 140- 
65*SINf ! 3 3 -63 + ". " +STR$ í I NT f 1 00 + 65*COSC I 3 
3 3 :PRINrai,M!D$fSTR$CZ/5D.2, 13 
610 Z=Z+1 
620 NEXT I 

630 Xf 13--Xf611 :vc 13-YÍ613 
640 RETURN 
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TRIVIAL 
CLUB 



El lector Eduardo Casares 
nos envía este interesante pro- 
grama de preguntas y respues- 
tas, por cuyas características lo 
hemos denominado «Trivial 
Club». Es instructivo y diverti- 
do al mismo tiempo. Su misma 



estructura permite que los lec- 
tores puedan introducir nuevas 
preguntas, sobre todo aquellos 
que tienen que preparar mate- 
rias para septiembre y de ese 
modo llegar al examen en plena 
forma. ¡Que os divirtáis! 



10 REn XXXX TEST XXXX 
20 REfl ** Autor :Eduardo 
30 KEY OFF:CLS 
40 PRINT "XXX REPASAMOS 
50 PRINT " 



Casar-es XX 

? XXX" :PRINT 

PREGUNTA. N 



60 LET T$= I NKEY$ : INPUT T$ 

80 IF T$="1"THEN PRINT"QUIENES FUERON LO 
S SEFARDIES" ::PRINT" l-Jud¡os que piulan 
en EspaNa :2-Jud i os adora-ban a Buda;3-J 

udios seguidores de H i t le r " :PRINT : INP 

UT X:GOTO 2000 

90 IF T$= "2" THEN PRINT"MAS CERCANO A TIE 
RRA" ; : PRINT" 1-Neptunoí 2-Saturno:3 
-Urano" :PRINT:INPUT X : GOTO 2010 
100 IF T$="3"THEN PRINf'SUEGRO ES A YÉRN 
COMO SUEGRA ES A. . . '' : :PRINT" 1-Enemiga 
^2-Yerna:3-Nuera" :PRINT : INPUT X:GOTO 202 

110 IF T$="4"THEN PRINT "REY DE THA I LANDI 
A" : : PRINT" 1-Husse i n : 2- 1 s ma i 1 :3-Bhumibo 1 
" -'PRINT : INPUT X:GOTO 2020 

120 IF T$="5"THEN PRINT"ENTRADA AIRE A L 
OS PULMONES" ::PRI -T" i-f.sp ¡ r& - c ¡ ón :2-Res 
p i rae i o n : 3- 1 n s p ¡ rae i ó n " : PR I NT : I NPUT X : GO 
TO 2020 

Í?rJí TJ="6"THEN PRINT-LOS MEJORES PINC 
IXES Y BROCHAS SE HACEN DE PELOS DE?. 
. " : :PRINT." 1 -Marta :2-Te jon :3-Nut r i a" :PRI 
NT.-INPUT X:GOTO 2010 

140 IF T$="7"THEN PRINT"PRIMER HUMANO EN 
LA LUNA" : :PRINT" 1-Armst rong :2-Gagar ¡ n : 
3-Aldrin" : PRINT : INPUT X:GOTO 2000 
150 IF T*="8"THEN PR I NT "D I STANC I A TIERRA 
A SOL" : : PRINT" l- 150^6 ?2- 

105^6:3-100-6" : PRINT: INPUT X:GOT¿ 2000 
160 IF T$="9"THEN PRINT"CAPI TAL DE ALBAN 
IA": :PRINT" l-Berna:2-Praga:3-7 | rana" : 
PRINT:INPUT X:GOTO 2020 

170 IF Té="10"THEN PRINT"HAY UN PAJARO Q 
UE NO CONSTRUYE NIDO PROPIO. SINO QUE UA 
COLOCANDO UNO A UNO EN LOS DE LAS DEM 
AS AUES ¿ ES EL?" i SPRINT" 1-Pet ¡ ro Jo :2-C 
ucl i lió :3-Alondra" :PRINT:INPUT X:GOTO 20 

180 IF T$="ll"THEN 
12 CIGARRILOS CADA 
12 PTAS LA DOCENA, 
AR MENSUAL MENTF?" : 
360 
190 



PRINT"UN HOMBRE FUMA 
DIA. QUE LE CUESTAN A 
¿ CUANTO GASTA EN FUM 
:PRINT" 1-144:2-720:3- 
:PRINT:INPUT X:GOTO 2020 
IF T$="12"THEN PRINT "CIUDAD MUNDIAL 
CON MAS HABITANTES": :PRINT" -l-Shangn 
ai: 2-New York; 3-Tok i o " :PRINT : INPUT X:G 
OTO 2020 
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200 IF T$="13"THEN PRINT "UNI DAD MONETARl 
A DE PANAMA" : :PRINT " 1-Peso ;2- 

Balboa:3-Sol" :PRINT:INPUT XrGOTO 2010 
210 IF T$="14"THEN PRINT"LO CONTRARIO DE 
COMPATIBLE ES. . . " l :PRINT" 1-Antagón 
ico ;2-0puesto :3-Imp rev i s ¡ b le " :PRINT :INPU 
T XrGOTO 2000 

220 IF T$="15"THEN PRINT"QUE NUMERO CONT 

INUA A ESTA SERIE 90.85,75,60.40.."; 

:PRINT" 1-25: 2-15: 3-20" rPRINT : INPUT Xr 
GOTO 2010 

230 IF T$="16"THEN PRINT'DE UNA PERSONA 
QUE NO INTENTA PARECER DISTINTA DE LA RE 
ALIDAD SE DICE QUE ES. . . " : :PRINT" 1-L 
eal: 2-Sincera: 3-Hum i Ide " :PRINT: INPUT X 
:GOTO 2020 

240 IF T$^"17"THEN PRINT"CUANTAS PATAS T 
I ENE REALMENTE UN CIEMPIES" ! rPRINT" 

1-99 ó 100: 
2-62 ó 66: 3-42 ó 46" SPRINT: INPUT X:GOTO 
2020 

250 IF T$=" 18"THEN PR I NT " MAYOR RIO DEL M 
UNDO" : :PRINT" 1-N¡ lo : 2 

-Mississipi: 3-Amazonas " rPRINT : INPUT X:G 
OTO 2020 

260 IF T$="19"THEN PRINT"MAYOR MONTANA D 
E EUROPA" : :PRINT" . 1-Mont Bl 

&nc: 2-Mulhacen: 3-Elb rus " :PRÍNT : INPUT X 
:GOTO 2020 

270 IF T$="20"THEN PRINT"COMO SE DENOMIN 
A LA CRIA DE UN CABALLO Y UNA BURR 

A" ; :PRINT" l- p o 1 1 i no : -2. 

-Mulo: 3-Asno" :PRINT :INPUT X:GOTO 2010 | 
280 IF T$="21"THEN PR I NT " OBTENER LA QUIN 
TA PARTE DE LA MITAD DE UN MILLAR" ; :PRI 
NT" 1- 500: 2-200: 3-100"':PRINT r-INPUT X: 
GOTO 2020 

290 IF T$="22"THEN PRINT" A QUE PAIS PERT 
ENECE LA ISLA DE - TASMAN.I A -" ! rPRI 

NT" 1-Indones i a; 

2-Japón ; 3-Au s t ra lid" rPRINT- : INPUT X:GOTO 
2020 

300 IF T$="23"THEN PRINT "QUIEN INUENTO E 
L GRAMOFONO" : :PRINT" 1-Neuton : 

2-Einstein; 3-Ed i son " :PRINT : INPUT X:GOT 
O 2020 

310 IF T$="24"THEN PRINT"BOMBA ATOMICA E 
N HIROSHIMA" : rPRINT" 1-1943: 2 

-1944! 3-1945" '.PRINT : INPUT XrGOTO 2020 
320 IF T$="25"THEN PRINT "PRIMER SATELITE 
EN EL ESPACIO" : :PRINT" 1-Explore 
r: 2--Spun¡k; 3-P i onne r" :PRINT : INPUT XrGO 
TO 2010 

330 IF T$="26"THEN PRINT"QUIEN REGENTA E 
SPAÑA AL MORIR ALFONSO XI I " : - :PRINT" I-Al 
fon so XI I I :2-Sagasta ;3-Mar i a Cristina":.P 
RINT: INPUT X:GOTO 2020 

34*0 IF T$="27"THEN PRINT'TIN ' SEGUNDA GUE 
RRA MUNDIAL" : rPRINT" I-Abril 4 

3: 2-Junio 44: 3-Mayo 45" rPRINT : INPUT X: 
GOTO 2020 

350 IF T$="28"THEN PRINT"QUE ESTUDIA LA 
SEMANTICA" ; :PRINT" 1-S¡gn¡f¡ 
cado palabra; 2-Expresión 
de la frase: 3-Estud¡o de la 

lengua" rPRINT: INPUT XrGOTO 2000 
360 IF T$="29"THEN PRINT"SINE QUA NON";: 
PRINT" 1-Slri con 

d ¡ c I ón : 2-S i n lo cu a 

1 ; 3-S ¡ n fijar fec- 

ha" :PRINT : INPUT X:GOTO 2010 
370 IF T$="30"THEN PRINT "QUE AÑO SE CREO 



LA O.N.U" : :PRINT" 1-1935: 2 

-1950: 3-1945" :PRINT: INPUT X'.GOTO 2020 
380 IF T$="31"THEN PRINT "QUIEN MANDO CON 
STRUIR EL PALACIO DE UERSALES" ; :PRINT" 

1-Luis XIU: 
2-Carlos UJ 3-Lu ¡ s XU" ".PRINT : INPUT X:GOT 
O 2000 

390 IF T$="32"THEN PRINT" CUANDO EN MADR 
ID SON LAS 10 EN JAPON SON LAS. . . " :PRIN 
T" 1-15: 2-18: 3-16" :PRINT : INPUT X:GOTO 
2010 

400 IF T$="33"THEN PRINT "DONDE NACIO EIN 
STEIN" : :PRINT" 1-Inglate 
rra; 2-Alemania: 3-EE. UU" :PRINT : INPUT X: 
GOTO 2010 

410 IF T$="34."THEN PRINT"DESCUBRIÜOR DE 
LA PENICILINA" : :PRINT" 1-F¡scher 
; 2-Naksman; 3-Flem ¡ ng " :PRINT : INPUT X:GO 
TO 2020 

420 IF T$="35"THEN PRINT"QUIEN DIJO. .^AR 
IS BIEN UALE UNA MISA" : :PRINT" 1-Enr¡.que 
UII :2-Enr¡que IU;3-Lu¡s XUI " :PRINT : INPU 
T X:GOTO 2010 

430 IF T$="36"THEN PRINT" INUEN7QR DE RAY 
OS X" : :PRINT" , 1-Cur ¡e :2 

-Darwin ;3-Roentgen" ; :PRINT:INPUT XsGOTO 
2020 

440 IF T$="37"THEN PRINT" CUANTO MIDE LA 
TORRE EIFFEL" : :PRINT" 1-280: 2 

-300; 3-293" :PRINT : INPUT X:GOTO 2010 
450 IF T$="38"THEN PRINT" AÑO DE CONSTITU 
CION DE LA C.E.E. " ; :PRINT" 1-1945: 2 

-1957: 3-1962" :PRINT:INPUT X:GOTO 2010 
460 IF T$="39"THEN PRINT"DONDE NACIO CHA 
RLES CHAPLIN" : :PRINT" 1-Par¡s; 
2-New York; 3-Lond res " :PRI NT : INPUT X:GOT 

2020 

470 IF T*="40"THEN PRINT"QUE ES UN CURRI 
CAN"::PRINT" l-H¡stor¡ 
al; 2-Trabajador ; 3-Anzue lo " :PRINT : INPUT 

XrGOTO 2020 
480 IF T$="41"THEN PRINT"QUE ES LA CUNIC 
ULTURA" ; :PRINT" 1-Estudio 

de la cultura: 2-Cr¡a de co 

nejos; 3-0rigen del id 

1 orna '•' :PRINT : INPUT X:GOTO 2010 

490 IF T$="42"THEN PR I NT " CUANTOS AÑOS DU 
RO LA ERA TERCIARIA" : :PRINT" 1~6; 2-65 
~6í 3-150^6" :PRINT: INPUT X:GOTO 2010 
500 IF T$="43"THEN PRINT"COMO SE LLAMA L 
A SEGUNDA FILA DE ASIENTOS EN LOS TE 

NDIDOS DE LA PLAZA DE TOROS" ;:PRIN 

T" 1-Tendido 2: 2 

-Contrabarreras; 3-Barrera 2" :PRIN 

T: INPUT X-.GOTO 2010 

510 IF T$="44"THEN PRINT"QUE SIGNIFICA S 
OMURGAR " : : PR I NT " 1 -So porta 

r; '2-2ambull i r : 3-Sopesar" :PRINT : INPUT X 
:GOTO 2010 

520 IF T$="45"THEN PRINT"QUE MARES UNE E 
L CANAL DE SUEZ" ; :PRINT" 1-Mediter 
raneo-No rte :2-Med i te rraneo -Rojo: 3-Med 
¡terraneo-Negro" :PRINT:INPUT XrGOTO 2010 

530 IF T$="46"THEN PRINT "QUIEN FORJO LA 
INDEPENDENCIA DE INDONESIA" ; :PRINT" 
1-Suharto ;2-Sukarno :3-Gand i " : PRINT :INPU 
T XrGOTO 2010 
540 IF T$="47"THEN PRINT"QUIEN INUENTO E 
L TREN TALGO" : :PRINT" l-J.Tan¡za 
k i :2-J. Torres :3-A.Go icoechea" :PRINT:INPU 
T X::G0T0 2020 
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550 TF T$="48"THEN PRINT"QUIEN 1 NUENTO E 
L TELEFONO" ; :PRINT" 1-G. Be 1 1 :2-G. Marco 
n ¡ :3-T.Ed Isson" :PRINT:INPUT X:GOTO 2080 
560 IF T$="49"THEN PRINT"QUE ES LA TRAMO 
NTANA" ! rPRINT" 1-Tras montaÑa :2-U ¡ ento d 
el norte, frió y seco ;3-Retemb lar" :PRINT : 
INPUT X: GOTO 2010 

570 IF T$="50"THEN PRINT"CON QUIEN CASO 

EL CID"::PRINT" 1-Urraca :2-T i ¿ona :3-J ¡ me 

na" :PRINT:INPUT X:GOTO 2020 

580 IF^T$="51"THEN PRINT"EN INGLES/NAB.E 

N ESPAÑOL. .?" ::PRINT" I-Nabo :2-Coge r :3-D 

esprec ¡o" :PRINT:INPUT X:GOTO 2010 

530 IF T$="52"THEN PRINT"EN ESPAÑOL/MFJT 

LLON, EN INGLES. ..?"; :PRINT" 1-Better: 

2- Mussel :3-Cheek" :PRINT:INPUT X:GOTO 20! 


600 IF T$="53"THEN PRINT"EN LENGUAJE BAS 
IOQUE ES -STEP-" í :PRINT" 1-Para :2-Has ta : 

3- Paso" :PRINT: INPUT X:GOTO 2020 

510 IF T$="54"THEN PRINf'QUIEN DIJ0:LA H 
UJER ES COMO UNA TAZA DE CAFE. LA PRIMERA 
UEZ QUE SE TOMA NO TE DEJA DORMIR" : :PRI 
NT" 1-Ce la ;2-Dumas :3-Sof oc les " :PRINT : INP 
UT X:GOTO 2010 

.620 IF T$="55" THEN PRINT"QUE AÑO SE D^S 
IGNA A JUAN CARLOS REY DE ESPAÑA" : : p RlNT 
" 1-1967;2-1969;3-1970" :PRINT:INPUT X:GO 
TO 2010 

630 IF T$="56"THEN PRINT"PELICULA CON MA 
S OSCARS EN TODA LA HISTORIA" : :PRINf" 1- 
Ben Hur;2-Quo Uadis;3-Lo queel viento se 

1 levó " :PRINT : INPUT X:GOTO 2000 
640 IF T$="57"THEN PRINT"PORQUE LA 5ANGR 
E ES DE COLOR ROJO" : :PRINT" 1-Moleculas 
no absorben ondas de luz ro Jo :2-Mo lecu 1 a 
s absorben ondas de luz rojas :3-Mo lecu la 
s. absorben todas ondas de luz " ; :PRINT : IN 
PUT X:GOTO 2000 

650 IF T$="58"THFN PRINT,"QUIEN DIJO: HAY 
QUE ESTUDIAR MUCHO PARA SABER POCO" ; :PR 
INT" 1-Bonaparte :2-Montesqu i u 53- T. Capot 
e" :PRINT:INPUT X:GOTO 2010 
660 IF T$="59" THEN PRINT"COMO SE CALCUL 
A EL NUMERO P i CTü " : :PRINT" 1-Relacion en 
tre longitud y diámetro circunferencial 
-Entre radio y diámetro de c i rcunf e rene i 
a;3-Entre longitud y diámetro de c i rcunf 
erenc i a" :PRINT: INPUT X:GOTO 2000 
670 IF T$="60"THEN PR INT "QUE DIA MES Y A 
ÑO NACIO EL PRINCIPE FELIPE" : :PRINT" l- 
30-1-68 :2-30-2-70 ;3-30-3-69" :PRINT : INPUT 

X:GOTO 2000 
680 IF T$="61" THEN PRINT"QUIEN D1J0:HAY 
MUJERES QUE QUIEREN TANTO A SUS MARIDOS 
QUE PARA NO USARLOS , TOMAN EL DE SUS AMI 
GAS"::PRINT" 1-Yves Mon tand :2-C. Ce la :3-A 
TDumas" :PRINT: INPUT X:GOTO 2020 
690 IF T$="62" T HEN PRINT"CUAL ES LA MAXI 
MA ESTATURA ALCANZADA POR UN HOMBRE" : :PR 
INT" 1-2.50; 2-2.70: 3-2. 38" :PRINT : INPUÍ 

X:GOTO 2010 
700 IF T$="63"THEN PR INT "GANADOR UUELTA 
CICLISTA A ESPAÑA 84" :.:PRINT" 1- L.Fign 
on; 2-B.Hinoltí 3-E. Car i toux":PRINT : INPU- 
T X^GOTO 2020 

7]0 IF TS="64"THEN PRINT"QUE NUMERO SIGU 
U A LA SERIE. 1 . 3. 7. 15, "•; :PRrNT"!-3l ; 2-2 



5: 3-33" :PRINT: INPUT X:GOTO 2000 
720 IF T$="65"THEN PRINT"BOTAN"TCO ES A S 
OCIOLOGICO COMO PLANTAES A- " ; : PR I NT " 1-S 
oc i o log í a ;2-Soc i edad ;3-Soc i o " ; :PRTnt : t Np 
UT X:GOTO 2010 

730 IF T$="66"THEN PR INT "SUR ES A NOROFS 
TE LO QUE SUDESTE ES A " : : PR I NT " i -No rdes t 
e: 2-Suroeste: 3-No rte " :PR INT : INPUT X:GO 
740 IF T$="67"THEN PRINT"LUNA ES A TTfRR 
A COMO TIERRA ES A " ; .: PR I NT " " 1 - Ju p i t e r 
;2-Marte :3-Sol" :PRINT: INPUT X:GOTO 2020- 
750 IF T<ü = "68"THEN PR INT "CUANTOS DIAS HA 
Y EN 4 MESES Y 3 SEMANAS" : :PRINT" 1-141 j 

2-145: 3-143" :PRINT:INPUT X:G'OTO 2000 
760 IF T$="69"THEN PR INT "QUE NUMERO MUL T 
IPLICADO POR DOS ES TRES UECES SBÍS";: 
PR I NT " 1-6: 2-3: 3-18". : p RÍNT : INPUT X:GOT 
O 2010 

770 IF T$="70"THEN PRINT"QUE NUMERO SUMA 
DO A NUEUE DA 2 UECES UN TERCIO DF UÉlNT 
ICUATRO" ; :PRINT". . 1.-7 ¡ 2-8; 3-S":PRINT :I 
NPUT X:GOTO 2000 

780 IF T$="71"THEN-PRINT"C0M0 SE LLAMAN 
LOS NATURALES DE CALA-TAYUD" : :PRINT" t-C* 
alatuyanos :2-Bi Ib i l i taños :3-Caiatuyens*s-. 
" :PR INT: INPUT X:GOTO 2010 

790 IF T$="72"THEN PRINT"EN QUE NACION S 
E HALLA EL LAGO CONS— TANZA" : :PRINT" i-G 
rec i a :.2-Suec i a :3-Su i za" :PRINT : INPUT X :Gü 
TO 2020 

800 IF T$="73"THEN PRINT"QUIEN FUE CUCHA 

RES"::PRINT" 1-Poeta ;2-To re ro ; 3-Ariesan 

o" :PRINT: INPUT X:GOTO 2018 

810 IF T$="74"THEN PRINT"UNA COROLA SE C 

OMPONE DE. . " : :PR INT" 1-De hojas ;2-De P ét 

alos:3-De ramas " :PRINT : INPUT X: GOTO 201 



820 IF T$="75"THEN PRINT"QUE ES OLIGARQU 
IA"::PRINT" 1-Forma de gob i e rno ;2-Sec ta 
reí ig i osa :3-Catego r I a" :PRINT: INPUT X:GOT 

O 2000 

830 IF T$="76" THEN PRINT"QUE PAISES TIE 
NEN UNA CIUDAD LLAMADA CORDOBA" : :PRINT" 
1-EspaÑa-Pe ru ;2-EspaÑa-Argen-t ina:3-Espa 
Na-Mexico" :PRINT:INPUT X'-GOTO 2010 
840 IF T$="77"THEN PRINT"QUE ES TEISMO"; 
:PRINT" 1-Creer en un solo Dios;2-Creer 
en varios Dioses:3- No creer en Dios":PR 
INT: INPUT X:GOTO 2000 

850 IF T$="78"THEN PRINT"QUE ES UNA MOLE 
CULA" : :PRINT" 1-Un átomo :2-Com-b i nac i ón 
de 2 ó mas átomos ;3-Un átomonegat i vo " :PR 
INT: INPUT XrGOTO 2010 

860 IF T$="79"THEN PRINT"UNA UIHUELA ES" 
; :PRINT" 1-Enf e rmedad ;2-Inst ru-mento mus 
ical:3-Una serie de g ranos " SPRINT : INPUT 

X:GOTO 2010 

870 IF T$="80"THEN PRINT"UN LILIPUTIENSE 
ES"::PRINT" 1-Nativo de Punta Umbrla;2 
-Un enano :3-Arbo 1 mex i cano " :PRINT : INPUT 
X:GOTO 2010 

880 IF T$="81"THEN PRINT"L IBRA ES A INGL 
ATERRA COMO INDIA ES A" ; :PRINT" 1-Yen ;2- 
Dracma ;3-Rup i a" :PRINT : INPUT X:GOTO 2020 
890 IF T$="82"THEN PRINT"QUE ES LO CONTR 
ARIO A SOBERBIA" ; :PRINT" 1-Des-pot i smo ;2 
-Educac ión ;3-Humi ldad" :PRINT: INPUT X:GOT 
O 2020 
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900 IF T$="83"7HEN PRINT"TIO ES SIEMPRE 
MAYOR QUE EL SOBRINO" ; :PRINT" i-Cierto : 

2- D¡scut i ble :3-Falso" :PRINT:INPUT X:GOTO 
2020 

910 IF T$="84"THEN PRINT"TRES ENTRADAS D 
E CINE CUESTAN 180 Pts, CUANTAS CONSEGUIM 
OS CON 120 DUROS" : :PRINT" 1-12; 2-20, 

3- 10" :PRINT:INPUT X:GOTO 2020 

920 IF T$="85"THEN PRINT"TERMOMETRO ES. A 
TEMPERATURA COMO PI — ROMETRO ES A....";:. 
PRINT" 1-Dens Idad :2-Calo r :3-Ue loe i dad" :P 
RINT:INPUT X:GOTO 2010 

930 IF T$="86"THEN PRINT"LO CONTRARIO A 
HABITUAL ES. . . " ; :PRINT" 1-Aleator 
¡o :2-Probable :3-Es P o rad i co " :PRINT:INPUT 
X:GOTO 2020 

940 IF T$="87"THEN PRINT"EN LA PALABRA * 
DESGRACIADAMENTE* QUE LETRA OCUPA EL MIS 
MO ORDEN QUE EN EL ABECEDARIO" : :PRINT" 1 
-M;2-N;3-I" :PRINT:INPUT X:GOTO 2010 
950 IF T$="88"THEN PRINT"QUE NUMERO ESTA 
DE MAS EN ESTA SERIE 1 , 3, 6. 9. 12»" I :PRIN 
T" 1-1 ; 2-12: 3-3" :PRINT:INPUT X:GOTO 20 
00 

960 IF T$="89"THEN PRINT"CUAL DE ESTAS F 
ALABRAS UIENE EN UL— TIMO LUGAR EN EL D 
ICIONARIO" : :PRINT" 1 -Burro :2-Busto ;3-Buf 
alo" :PRINT:INPUT X:GOTO 2010 
970 IF T$="90"THEN PRINT"LONDRES ES A IN 
GLATERRA LO QUE TEL- AUIU ES A. " : :PRINT 
" 1-S¡ r¡a;2-Eg Ipto ;3-Israel" :PRINT:INPUT 

X:GOTO 2020 
980 IF T$="91"THEN PRINT" PEDRO ES MAS J 
OUEN QUE JUAN Y PEDRO ES MAS UIEJO QUE L 

UTS. ENTONCES LUIS QUE JUAN" : : PRINT 

" 1-Mas joven :2-Mas viejo :3-De la misma 
edad" :PRINT:INPUT X:GOTO 2000 
990 IF T$="92"THEN PRINT"CUAL ES EL NUME 
RO QUE MULTIPLICADO POR SI MISMO DA 12 
1"; -.PRINT" 1-12S 2-13. 3-1 1" :PRINT : INPU 
T X:GOTO 2020 

1000 IF T$="93"THEN PRINT "QUIEN DIO LA N 
OTICIA DE UNA UICTORIA CELEBRE, CON LA FR 
ASE-UENI .UIDI.UINCI" : : PRINT" I-Marco Ant 



onio: 2-Cesar Augusto: 3- Ju 1 i o Cesar": 
PRINT : INPUT X:GOTO 2020 

1010 IF T$="94"THEN PRINT'TRIMER MARTIR 
DE LA CRISTIANDAD" : :PRINT" 1-S.Este 
ban :2-S.Sebast i an ;3-Sant ande r" :PRINT:INP 
UT X:GOTO 2000 

1020 IF T$="95' ! TAEN PRINT"COMO SE LLAMAN 
LOS NATURALES DE CABRA" : :PRINT" 1-Cab r i t 
enses :2-E9ab renses :3-Cab r i lenses " : PRINT : 
INPUT X:GOTO 2010 

1030 IF T$^"96"THEN PRINT"UN CONTINENTE 
LLFNO PESA 5 KILOS Y SUCONTENIDO 3.CUANT 
O PFSA FL CONTINENTE UACIO" : :PRINT" 1-3: 

2-2: 3-15" : PRINT : INPUT X'.GOTO 2010 
1040 IF T$="97"THEN PRINT"CUANTOS DIAS F 
ALTAN PARA TERMINAR EL MES DE ENERO. SI E 
STAMOS A DIA 21 POR LA TARDE" : :PRINT" 1 
-11 : 2-9: 3-10" :PRINT:INPUT X'.GOTO 2020 
1050 IF T$--"98"THEN PRINT"QUE ES LA CIBE 
RNETICA" : :PRINT" 1-Ciencia maquinas 

electrón ¡cas :2-Cienc ¡a de las plantas 
:3-Cienc¡a de los pájaros " :PRINT : INPUT X 
:GOTO 2000 

1060 IF T$="99"THEN PR I NT "DONDE HABITAN 
LOS BOSQUIMANOS" :PRINT" 1 -En los bosques: 
2-En Africa:3-En Boston " :PRINT : INPUT X:G 
OTO 2010 

'1070 IF T$=" 100"THEN PRINT"CUANTOS NUMER 

OS DE REUISTA MSX EXTRA HAN SALIDO " 

::PRINT" 1-10: 2-6: 3-4" :PRINT : INPUT X:G 
OTO 2020 

2000 ÍF X=l THEN PRINT " 

** BIEN ** " :PLAY"CDEFG" :GOTO 



.MAL. 



" :GOTO 
.MAL.. 1 



LSE PRINT" 
GFEDC" : GOTO 2030 
2010 IF X--2 THEN PRINT 

** BIEN **" :PLAY" 
LSE PRINT" 
GFEDC" : GOTO 2030 
2020 IF X^3 THEN PRINT " 

** BIEN **" :PLAY"CDEFG" :GOTO 
SE PRINT" . .MAL. . 

GFEDC" : GOTO 2030 

2030 FOR J=l TO 2000:NEXT J:CLS:GOTO 



2030 :E 
:PLAY" 



2030: E 
:PLAY" 



2030 EL 
:PLAY" 



40 
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CARRETERA 



Este programa tiene la virtud 
de introducirte de un modo ele- 
mental en la estructura de un 
programa de juegos, además de 
ser entretenido. 




Aquí no se han empleado 
sprites, de modo que se utilizan 
símbolos tanto para el coche 
como para la carretera cuyas 
curvas van apareciendo a medi- 
da que avanzas. 

El juego tiene tres niveles de 
dificultad (1-3) y para llevar el 
coche hacia la derecha tienes 
que pulsar la «P» y hacia la iz- 
quierda la «Q». Cuando el coche 
que conduces toca alguna de las 
vallas de contención la partida se 
acaba. 

Prueba a mejorarlo. Es apa- 
sionante hacerlo. 



10 REriXXXXXCARRETERAXXXXXX 
20 REMXXPOR .MARCELO TELLOXX 
30 REM-**. -MSX-CLUB- XX 
40 REM*XXXXXXXXXXXXXXXXXXX 
50 COLOR 10 l:CLS:KEv OFF 
60 PR.INT :PRÍ NT : PRINT 

70 IÑPUT'- "GRADO DE DI F JCUL TADC 1-3V ;G 

80 A$="| 1 " 

90 X=16: v =20 
100 K=0 

110 FOR 1 = 1 TO .30XG:NEXT í 
120 B$=INKEY$ 
130 IF B$=-"Q" T HEN Y=V-1 
140 IF B$="P" T HEN Y==Y+1 

150 PR I NT TABC X } ;LEP~T$c A$, ^-X) ¡"•"RIGHTSi 
A$. X+8-YD 

160 IF Y-X<=1 OR Y-X>=7 t H EN 220 
170 K*K+I 

180 X = X+ I NT f RND C 1 3X3 3 - 1 
190 IF X=0 THEN X=2 
200 IF X-32 THEN X=-30 
210 GOTO 110 

220 COLOR 5 :PRINT" ! ! ! PLAF ! ! ! " 
230 PRINT :PRINT :PRINT 

240 PLAY"CDEFG" : PRINT "HAS RECORRIDO" IK 
10;"KM SIN ACCIDENTES" 

250 LOCATE 1 , 1 :PRINT"RECORD ! ' ;K/10;"KM" 
260 END 
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BIORRITMOS 



Con este sencillo programa 
puedes conocer tus ciclos posi- 
tivos y negativos, en sus tres va- 
riantes fundamentales: emotivi- 
dad, física e intelectual. 



10 REM***BIORRITMOS**** 

20 REM#* — MSX-CLUB #* 

30 Din ri$C12D.MC12D 
40 PI=3. 14159 

50 FOR I=1T0 1 2 :READ M*Gt 3.MCI3 :NEXT I 
60 DATAENERO. 31 , FEBRERO, 28, MARZO. 31 . ABRI 
L, 30. MAYO, 31, JUNIO, 30 

70 DATAJULI0.31. AGOSTO. 31 .SEPTIEMBRE, 30. 
OCTUBRE. 31. NOUIEMBRE, 30, DICIEMBRE, 31 
80 SCREEN0:COLOR4, 1, 1 
180 REM 
190 REM 

200 INPUT"TU APELLIDO" :P$ 

210 PRINT"DI A. MES, AÑO DE NACIMIENTO" 

220 INPUT J,M,A 

230 PRINT"MES. AÑO DE BIORRITMO" 
240 INPUT U,U 

250 IF U)<A THEN PRINT" IMPOSIBLE" :GOTO 21 


260 IF U)=A AND M>=U THEN PRINT" IMPOSIBLE 
" :GOTO 210 
280 REM**CA&,H2 

310 IF A/4=INTCA/4] THEN MC2D=29 ELSE MC 
2D=28 

320 R=MCMD-J+1 

330 IF A=üJ THEN D=U-1 ELSE D=12 
340 FOR I=M+1 TO D :R-R+MC I D :NEXT 
350 IF A=U THEN 410 
360 FOR I=A+1 TO U-l- 

370 R=R+365:IF I/4=INTCI/4D THEN R=R+1 
380 NEXT I 

390 IF U/4=INT CU/4) THEN MC2D=29 ELSE M 
C2D=28 

400 FOR 1=1 TO U-l :R=R+MC 13 :NEXT 
410 PRINT R 
480 REM 
490 REM 
500 SCREEN2 

510 OPEN"GRP:"FOR OUTPUT AS#1 

520 DRAU)"BM16,0" :PRINT#1 , LEFT$CP$, 10D :" 

NACIO" :J : :M$CMD :a 

530 DRAU"BM16, 8" :PRINT#1, "BIORRITMO PARA 
" ;M$CUD :u 

540 DRAUJ"BM16, 18" :PRINT#1 , u «« 
550 LINEC18.23D-C18. 1803 
560 LINEC18, 100D-C235, 100D 
570 FOR J= 0TO CMCU3-1D*7 

580 P=100-INTC70*SINCCR+C J/7D D*2*PI/23D D 
590 E= 100-1 NT C70*SINCCR+C J/7D DX2*PI /28D D 
600 I=100-INTC70*SINCCR+CJ/7DD*2*PI/333D 
610 PSETCJ+24,PD,6:PSETCJ+24,ED.4:PSETCJ 
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Para conocer tus biorritmos tienes 
ue insertar en el MSX tu nombre, el 
ía, el mes y el año de nacimiento (las 
dos últimas cifras) y posteriormente el 
mes y el año, cuyas curvas biorrítmicas 
desees conocer. 

Las curvas que aparecen en pantalla 
corresponden a los tres ciclos principa- 
les que influencian en la vida humana. 
El ciclo físico es de 23 días, el emocio- 
nal de 28 y el intelectual de 33. Durante 
los períodos positivos la energía vital se 
libera y el individuo es más activo, 
mientras que en los negativos el orga- 
nismo recupera sus fuerzas y tiende a 
ser más pasivo. El punto cero corres- 
ponde a días críticos. Esto no significa 
que sean especialmente peligrosos, 
pero durante ellos debemos ser muy 
prudentes, especialmente en aquellos 
en los que coincidan dos y tres puntos 
críticos. 

La F significa físico, la E, emocional, 
y la I, intelectual y en la pantalla te indi- 
can la curva correspondiente. Asimis- 
mo verás en la parte superior derecha 
un signo + (positivo) y en la inferior un 
- (negativo). 



+24, 13,15 

620 IF J>=MCUD THEN 650 

630 IF J>9 THEN DRAU"BM"+STR$C7*J+22D+" . 

176" :PRINT#1,MID$CSTR$C J+1D.2. ID 

640 DRAUÍ"BM"+STR$C7*J+22D + ", 184" :PRINT#1. 

,RIGHT$CSTR$CJ-HD. ID 

650 NEXT J 

660 DRALTBM240.32" :PRINT#1, "+" :DRAU"BM24 
0, 160" :PRINT#1, 

670 COLOR 6 :DRAUI"BM240, 88" :PRINT#1 , "F" 
680 COLOR 4 :DRAU)"BM240, 96" :PRINT#1 » "E" 
690 COLOR 15:DRAW"BM240,104":PRINT#1,"I" 

700 A$=INPUT$C1D 
710 -RUN 
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Por primera vez te ofrecemos 
un verdadero «menú» de pro- 
gramas con varias opciones 
para juegos, gráficos, sonido, 
etc. Como puedes ver un intere- 
sante listado para conocer más a 
fondo las posibilidades de tu 
aparato. 



10 KEM *********** 

20 REM * * 

30 REM * M E N U * J.M.Diaz Pérez 

40 REM * * 

50 REM *********** 

60 KE Y ÜFF : CLS : COLOR 15,4,4: SCREENO 

70 LOCATE12,0:PRINT"** MENU **" IL0CATE12 , 1 :PRINT" 
80 L0CATE8,3:PRINT"1 .- CARRERA DE COCHES" 
90 L0CATE8,5xPRINT"2.- DIBUJO" 

100 L0CATE8,7:PRINT"3.- PROGRAMA PARA PINTAR" 
110 L0CATE8,9:PRINT"4.- CUADROS" 
120 L0CATE8,11 xPRINT"5.- LINEA CONTINUA" 
130 L0CATE8,13xPRINT"6.- ESTRELLAS" 
140 L0CATE8,15xPRINT"7.- MUSICA" 
150 L0CATE8 f 17:PRINT"B.- 2, 4, 5, 6, Y 7" 
160 L0CATE9,21 !PRINT"ESCOJA UN NUMERO" 
170 A$=INKE Y$ :A=VAL (A*) : IFA<1ORA>8THEN170 
180 IF A*="l" GOTO 320 
GOTO 1030 
GOTO 1120 
GOTO 1480 



«Menú» te da la posibilidad 
de poder desarrollar tu imagina- 
ción pues a medida que juegas 
vas descubriendo distintas op- 
ciones de uso para tu máquina. 
El programa ya contiene las ins- 
trucciones necesarias para cada 
caso. Como todos nuestros pro- 
gramas, este también es suscep- 
tible de ser mejorado. 



190 IF A*="2" 
200 IF A*="3" 
210 IF A*="4" 
220 IF A*="5" GOTO 1570 
230 IF A*="6" GOTO 1640 
240 IF A*» "7" GOTO 1720 
250 IF A*="B" GOTO 260 
260 GOSUB 1890 
270 GOSUB 1980 
280 GOSUB 2090 
290 GOSUB 2180 
300 GOSUB 2280 
310 GOTO 260 

320 CLS¡LOCATE3,5:PRINT"UTILI2E:":LOCATE10,8:PRINT"LA TECLA < DEL CURSOR" : LOCA 
TE10,10:PRINT"PARA IR A LA I ZQUIERDA" i LOCATE 10 , 14 :PRINT"LA TECLA > PARA IR A 
" :LOCATE10, 16:PRINT"LA DERECHA" 
330 GOSUB900 

340 CLS:L0CATE8,8:PRINT"ELIGA EL ANCHO DE PISTA" JL0CATE8 , 12 xPRINT"DE 8 A 18" :LOC 
ATE20,12:INPUT AP 

350 IF AP < 8 OR AP > 18 THEN340 

360 CLSxLOCATES.SxPRINT'-ELIGA LA ACELERACION" :L0CATE8 , 12 xPRINT" DE 5 A 100" iLOCAT 

E20,12:INPUT VxVL«105-V 

370 IF VL<50R VLM00THENCLS i GOTO 360 

380 PP=10j PC =PP+INT(AP/2) :MV=0: KM=0 

390 CLS: PRINT " SALIDA KM.0 

400 FOR 1= TO 20 
410 FOR TP= TO VL 

420 MV*=» INKEY* : IF MV*= " " THENMV*- " A " 
430 IFASC(MV$)-29 THEN PC=PC-1 
440 IFASC(MV*)=28 THEN PC =*PC+1 
450 NEXT TP 

460 PRINT TAB<PP) "«"xTABÍPO "A* jTAB (PP+AP) "«" 
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470 IF POPP ÜR PC-PP+AP THEN GOTO 600 
480 IF PP<1 THEN PP-1 
490 IF PPM 7 THEN PP-17 
500 PP-PP+MV 
510 VL-VL-2 

520 MV-INT (RND <1)«3>-1 

530 NEXT I 

540 KM-KM+1 

550 PRINT "KM." ; KM ; 

560 C-C+li IF 15 THEN 02 

570 IF KM-5 OR KM- 15 OR KM-25 OR KM-35 OR KM-45 OR KM-50 OR KM-60 OR KM-70 OR KM 
-80 THEN COLOR 1 ,C 
580 GOTO 400 
590 COLOR 1,C 

600 IF PC-PPTHEN PRINT TAB(PC) M J'| TAB<PP+AP) "■" 
610 IF PC-PP+AP THEN PRINT TAB(PP) |TAB (PC) "X" 

620 PRINT TAB(PC)"CRRRAAASSSSSS":FOR A-l T05 :C0L0R15 , 15 , 1 íFORR«l TO 50 :NFXT*COL 
□Rl5,l,l jFORR-1 TO 50 :NEXT xNEXT «COLOR 1,12,15 

630 PLAY h V15;T150jN30;N40;N30jN20;N30;N40|N30|N20jN30jN40jN30jN20 m íFOR L-l TO 1 
600: NEXT L 
640 SCREEN 2 
650 F-l 

660 FOR G-95 TO 1 STEP-.l 

670 CIRCLE (130,G) ,F,1 

680 F-F+ 8iIF F>100 GOTO 700 

690 NEXT G 

700 SCREEN 

710 IF KM>H8 THEN HS-KM sCLS ; LOCATE 8 ,10 : PRINT "ERES EL NUEVO RECORD 
■■■■■■ ■ ■ ■■■■■■ " 

720 FORT-1TO2000:NEXTT 

730 IF KM-HS THEN GOSUB 940 

740 CLS:LOCATE12,10iPftlNT"HAS HECHO" ;KM ; "KM . " 

750 FORT- 1TO2000jNEXTT:CLS:LOCATE5, 10 SPRINT" QUIERES JUGAR DE NUEVO S/N" 
7l?0 m 3 1 NKE Y * : I F A*<> " S " AND A*<> " s " AND A*<> " N " ANDA*<> " n " THEN760 
7?0 l^A$ S"ORA*-"s"THEN 320 

7b0 I FA*« "N" ORA*- "n" THEN CLS SL0CATE6 , 10 sPRI NT "ENTONCES HASTA OTRA, AMIGO" : FORT- 1 

TO2000:NEXTT:CLS:GOTO 60 

790 IF KM>9 AND KM<25 THEN GOSUB 920 

800 IF KM>24 AND KM<50 THEN GOSUB 1000 

810 IF KM>49 AND KM<75 THEN GOSUB 960: GOSUB 980 

820 IF KM>74 AND KM<100 THEN GOSUB 900 

830 IF KM>99 THEN GOSUB 850: GOSUB 870 

840 GOTO 400 

850 PLAY "T250 ;08 ;N35 ;N30 ;N32 ;T220 ;08 jN35 |T220 ;08 ;N0 ;N0 ;N0 ;N30 ;N32 ;T220 ;08 5 N35 ;T 
250 ;08 ;N0 ;N0 ;N0 ;N30 ;N32 ;T200 ?08 ;N35 iT250 ;08 ;N0 ;N0 |N0 ;N30 ;N32 ;N35 ;N37 ;N32 ;N35 :N37 
;N0 ;N0 ;N0 ;N32 jN35 ;N37 :N0 ;N0 ;N0 :N32 ;N35 :N37 ;N0 ;N0 sN0 ;N32 |N35 ;N37" 
860 PLAY "T240;O8;N10;N0jN0 jN10;N0;N0;N0;N0;N14;N17;N14;N10;N0 ;N0 ;N10 ;N0 ;N0" 
870 PLAY "T200jO8sN0;N0jN14;N17;N14;N15|N0;N0jN15sN0;N0" 

880 PLAY "T200;O8;N19;N22;N19;N15;N15;N0jN0;N19sN22;N19;N10;N0;N0¡N10;N0;N0:N14; 
N17;N14;N17;N0;N0;N17;N0;N0;N21 :N24;N21 ?N15 ;N0 ;N0 ;N15 ;N0 |N0 ;N19 ;N22 ;N19 ;N10" 
890 RETURN 

900 PLAY "T250:O4;V15;N10;N10;N14:N17;N19;N20 5N19;N17íN10jN10:N14;N17 8N19;N20;Nl 
9;N17;N15|N15;N19;N22;N24;N25:N24>N22;N15;N15;N19;N22;N24;N25;N24;N22;N10;N10;N1 

4;N17;N19;N20:N19:N17;N17;N17;N21;N24:N26;N27;N26iN24;N15:N15;N19;N22;N24 5 N25;N2 

4;N22;N10" 

910 RETURN 

920 PLAY "T250;O8;N55;N55;N54 ;N51 iN50 ;N50 ¡N50 sN51 ;N50:N51 :N50iN51 ;N54 ;N55 ;N54 ;N5 
1 ;N50 ;N50 ;N51 ;N51 ;N50 ;N47 :N46 ;N46 ;N46 ;N47 ;N46 ;N47 ;N46 ;N47 ;N50 ;N51 ;N50 :N47 ;N46 ;N4 

6 " 

930 RETURN 

940 PL A Y " T 1 50 ; 08 j N20 í N24 ; N27 ; N20 ; N24 ; N27 s N25 ; N28 : N27 : N25 1 N23 : N2 1 : N20 " 
950 RETURN 

960 PL A Y " T 1 50 1 08 ; N30 ; N34 j N37 ; N30 ; N34 j N37 ; N35 ; N38 j N37 j N35 : N33 : N3 1 : N30 " 
970 RETURN 

980 PLAY "T150 ;08 ;N40 :N44 ;N47 ;N40 :N44 ;N47 ;N45 ;N48 ;N47 ;N45 ;N43 ;N41 ;N40" 
990 RETURN 
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1000 PLAY "T240 ;08 ;N25 ;N20 ;N22 ;N25 ;N25 ;N20 ;N22 ;N25 ;N25 ;N20 jN22 ;N25 ;N25 ;N20 ;N22 ;N 
25 ;N27 ;N22 ;N25 ;N27 ;N27 ;N22 ;N25 ;N27 5 N27 ;N22 ;N25 ;N27 ;N27 ;N22 ;N25 ;N27 ;N25 ;N20 ;N22 ;N 

25" 

1010 RETURN 

1020 PLAY "T52;V10;N8;N8" 

1030 REM CIRCULOS 

1040 COLOR 15,15,15 

1050 SCREEN 2 

1060 FOR A=l TO160 

1070 CIRCLE (125,95) , <32-32*C0S <A/60*3 . 1416) +30+30*SIN <A/60«3 . 1416) ) ,8 
1080 LINE (125,95)-<120-120*COS(A/60*3.1416) , 100+100«8IN (A/60«3 . 1416) ) ,1 
1090 LINE (125,95)-(100-100*COS(A/60*3.1416> , 100+100*SIN ( A/60*3 . 1416) ) ,15 
1100 NEXT A 
1110 GOTO 1060 
1120 REM PINTAR 
1130 CLS 

1140 L0CATE3,1:PRINT"« 

PARA COMENZAR A PINTAR 1 
1150 L0CATE3,5:PRINT"# 

PINCEL" 
1160 L0CATE3,9:PRINT"* 



PULSE LA BARRA DE ESPACIOS Y UN M i L0CATE6 , 3 : PR I NT " NUMERO , 

t 

USE LOS MANDOS DEL CURSOR PARA" 1LOCATE6 ,7 xPRI NT "MOVER EL 
CON C Y UN NUMERO, TRAZARAS UN" 1LOCATE6 , 1 1 :PRINT"CIRCULO 



1170 
1180 
EL PI 
1190 

1200 

1210 

1220 

1,11: 

1230 

1240 

1250 

1260 

1270 

1280 

Í290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 



CON P, RELLENARAS DE 
SI PULSAS B. BORRAS 



COLOR" 

POR DONDE " s L0CATE6 , 1 7 : PR I NT " PASA 



L0CATE3,13:PRINT"» 
L0CATE3,15:PRINT"* 
NCEL" 

LOCATE 13, 21 :PRINT "PULSA UNA TECLA" 

A$= I NKE Y * : I FA$= " " THEN 1 200 

CLS 

L0CATE8 , 6 : PR I NT " * i,QUE RESOLUC I ON DESEA? " : L0CATE3 , 1 1 : PR I NT " PULSE : " : LOCATE 1 
PRINT"2 PARA ALTA RESOLUCION" :L0CATE9 , 16 :PRI NT "3 PARA BAJA RESOLUCION" 
A*=INKEY*:H=VAL<A*) 

1220 



IF H<2 OR H>3 GOTO 
V=l :IFH=3THENV=4 
X=100:Y=100 
C0L0R15,15,1 
SCREEN H 
A**INKEY* 
IFA*="" THEN 1400 
IF A*»" "THEN 1420 
IF A*="B"THEND=15:N=14: 
IF A*= " P " THENPA I NT <X+V,Y+V),C 
IF A*="C"THEN1450 
B=ASC<A*) 

IF B=2B THEN X=X+V 
IF B=29 THEN X=X-V 
IF B=30 THEN Y«Y-V 
IF B=31 THEN Y=Y+V 
PSET(X,Y) ,N:PSET(X,Y) ,C 
GOTO 1290 

A*=INKEY*iIF A$=""THEN1420 

C= < VAL ( A* ) ) +5 : N= 1 5 : 1 FC=5THENC= : 

GOTO 1290 

A*=INKEY*:IF A*=" "THEN1450 
K=VAL(A$)»10 

CIRCLE (X,Y) ,K,C:GOTO1290 
REM CUADROS 

SCREEN2 
X=RND(1)«300 
Y=RND(1)*200 
Z=RND<1)»200 
W-RND ( 1 ) «200 
C=RND<1)*15 




1550 LINE(X ,Y )-(Z ,W ),C f BF 

1560 GOTO 1500 

1570 SCREEN 1 

1580 REM *»** 

1_590 LET I =7 : J= 1 : CLS 

1600 LETI=I+J :A*= "♦###" 

1610 PRINT SPCO0-I ) ;A$ 

1620 IF < 1=30) OR< 1-7) THEN LET J=J«-1 

1630 GOTO 1600 

1640 REM ESTRELLAS 

1650 COLOR 15 ,1,1 : SCREEN 2 

1660 X=INT<RND<1)»256) 

1670 Y=INT<RND<1)#192) 

1680 PSET (X,Y) 

1690 A=INT<RND<1>*256) :B=INT (RND ( 1 ) «256 ) :P-INT (RND ( 1 ) *192) : 0=1 NT (RND ( 1 ) »192) 
1700 LINE(A,0)-(B,191) , 1 :LINE <0 ,P) - (255 ,Q) ,1 
1710 GOTO 1660 
1720 REM MUSICA 
1730 CLS 

1740 LOCATE 10, 8: PRINT "AUMENTE EL VOLUMEN " : LOCATE 11 , 1 2 : PR I NT " DE SU TELEVISOR" 
1750 FORT=1TO1000:NEXTT 

1760 CLS:LOCATE8,10:PRINT"*** MUSICA, MAESTRO Si!" 

1770 V 1 *= " T 1 08O6L4CCDO5G . 06CBDEEFE . D8CE8D8C05G06C . DBE8F8GGGG . FBEFFFF . E8DEL8FEDCL 
4E . F8GL 1 2AGFL4EDCR4R4 R20 " 

1 780 V2$="T1 08O5L4EBAD . G8GGA AGBAFEDE . RBR4G6GG . G8GGGGG . G8GGL8 AGFEL4G . F8GR4GFER4R4 

R20" 

1 790 V3$= " T 1 08O4L4DEFG . A8B05C04AFGG#AFG03G04C03CR404CEG05C04CR403CB04DG03GR404C0 

5CCC.04A8EF8D8G03G04C03GC R20" 

1800 F0RR=1T02 

1810 PLAY V1*,V2*,V3* 

1820 NEXTR 

1830 FORT=lTO5500sNEXTT 

1840 CLS:LOCATE10,10:PRINT"i,LE HA GUSTADO?" iFORT=1TO1000 :NEXTT :CLS 
1850 LOCATE3,10:PRINT"PUES ENTONCES DEME LAS GRACIAS" 
1860 LOCATE10,12:INPUTR* 

1870 I FR$<> " GRAC I AS " ANDR* O " gr ac i as " THEN CLS s GOTO 1850 

1880 IFR*="GRACIAS"ORR*="gracias"THENCLS:LOCATE10,10 8 PRINT"DE NADA. A MANDAR" :F0 

RT=lTO1000sNEXTT:CLS:GOTO 60 

1890 REM CIRCULOS 

1900 COLOR 15,15,15 

1910 SCREEN 2 

1920 FOR A=l TO160 

1930 CIRCLE (125,95) , <32-32»C0S (A/60»3 . 1416) +30+30»SIN (A/60»3 . 1416) ) ,8 
1940 LINE (125,95)-(120-120»COS(A/60*3.1416) , 100+100»SIN ( A/60»3 . 1416) ) ,1 
1960 NEXT ^ 125 ' 95) ~ <10,3 "" 10ei * COS<A/6CÍ * 3 - 1416) il00 + 100*SIN(A/60*3.1416)) ,15 

1970 RETURN 

1980 REM CUADROS 

1990 SCREEN2 

2000 FOR A=l TO 100 

2010 X=RND(1)*300 

2020 Y=RND(1)*200 

2030 Z=RND(1)*200 

2040 W=RND(1)»200 

2050 C=RND(1)*15 

2060 LINE(X ,Y )-(Z ,W ),C,BF 

2070 NEXT A 

2080 RETURN 

2090 SCREEN 1 : COLOR 15,4,7 

2100 REM SONY 

2110 LETI»7:J=1 :CLS 

2120 FOR A=l TO 200 

2130 LETI = I+J :A*=»"SONY" 

2140 PRINT SPC(30-I ) ;A* 

2150 IF < 1=30) 0R( 1=7) THEN LET J=J*-1 

2160 NEXT A 
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2170 RETURN 

2180 REM ESTRELLAS 

2190 COLOR 1 5,1 ,1 rSCREEN 2 

2200 FORT=1TO200 

2210 X=INT(RND<1)*256) 

2220 Y=INT(RND(1)*192) 

2230 PSET (X,Y) 

2240 A=INT<RND<1>*256> :B=INT (RND ( 1 ) *256) : P= I NT ( RND ( 1 ) * 1 92 ) : GN I NT ( RND ( 1 ) * 1 92 ) 

2250 LINE(A,0)-(B,191) , 1 :LINE (0 ,P> - (255 ,Q> ,1 

2260 NEXTT 

2270 RETURN 

2280 REM MUSICA 

2290 CLS:SCREEN0: COLOR 15,4,4 

2300 LOC ATE 1 0, 8 :PRI NT "AUMENTE EL VOLUMEN" : LOCATE 1 1 , 12 :PRINT"DE SU TELEVISOR" 
2310 FORT=1TO1000:NEXTT 

2320 CLS:LOCATE8,10:PRINT"***> MUSICA, MAESTRO !!!" 

2330 V1*="T108O6L4CCDO5G .06C8DEEFE .D8CE8DBC05G06C . D8E8F8GGGG .F8EFFFF .E8DEL8FEDCL 
4E . F8GL 1 2AGFL4EDCR4R4 R20 » 

2340 Vd*="T108O5L4EGAD . G8GGAAGBAFEDE .R8R4GGGG . G8GGGGG . G8GGL 8 AGFEL 4 G .F8GR4GFER4R4 

R20" 




Programasi 



— 



CUANDO LOS 

SANTOS VAN MARCHANDO 



Con este programita puedes 
comprobar las posibilidades 
musicales de tu MSX. Por genti- 
leza de Toshiba reproducimos 
el popularísimo «Cuando los 
santos van marchando». 




10 REM***** MUSICA ******* 
20 REí1**GENTILEZA TOSHIBA** 
30 REM** PARA MSX-CLUB ** 
40 REM********************* 
50 CLS'.SCREEN 2 
60 LINE C5, 103-C255.90D, i.BF 
70 OPEN "GRP : " FOR OUTPUT PS#1 
80 COLOR 14 

90 PSETC10.40D : PRINT # 1 . "CUANDO LOS SAN 
TOS UAN MARCHANDO" 
100 RESTORE 170 
110 FOR 1=1 TO 5 
120 READ A$,B$ 
130 PLAY A$,6$ 
140 NEXT 
150 GOTO 100 
160 END 
170 REM 
180 DATA 
190 DATA 
200 DATA 
DATA 



" t L70s 1 3m50 1 4 " , " 1 1 70s 1 3m50 1 1 
"df +garldf +g&r4r2 " r4r2ddd" 
"df +ga2f + 2d2f +2'er4r2", "ddda" 
"f +f +ed2.df +2Adag2. " . "addg" 
220 DATA "r4bb&2f+2d2e2dl" "gdd2oi2d" 



210 
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Uno de los aspectos más di- 
vertidos de los ordenadores 
MSX es jugar a los gráficos. Los 
programas -breves y fáciles de 
teclear- son un ejemplo de 
cómo obtener figuras -estrellas, 
circunferencias, rectas, etc.-, y 
Por ANTONIO RODRIGUEZ TRANCHE usar los colores disponibles. 



GRAFICOS 



3 REM APLICACION GRAFICA 

4 REM*ANTONIO RODRIGUEZ TRANCHE 1 985* 

5 KEY OFF 

113 CLS:PRINTTAB(5) "**LA PIPA DE LA PAZ**" 

20 LOCATE 8,7:PRINT"PARA CONTINUAR" : LOCATE 8 ,9 :PRINT"DIME EL NOMBRE" 

30 LOCATE 8,11 :PRINT"DE UNA TRIBU INDIA" :L0CATE5,21 :PRINT"Contestar con mayuscul 

as" 

32 LOCATE1 ,23 :PRINT"Parar el progama pulsando CTRL+STOP" 
35 LOCATE 8,14:INPUT T* 

40 IF T*="SIOUX" THEN LOCATE 5 , 18 :PRINT"ESE ERA EL NOMBRE/CONTINUO" ELSE CLS :G0 
TO 20 

50 FOR J=0 TO 2500:NEXT 
55 KEY ON 
60 SCREEN 2 

70 CIRCLE(123,103) ,44,1 , .7854 ,2 .3562 :LINE < 152 ,72) - (94 ,72) ,1 
80 LINE<93,73)-<153,80> ,15,BF 
90 PAINT(124,67) ,1 

95 CIRCLE (101 ,77) ,1,1 

96 CIRCLE(114,76) ,2,1 , , , .5 

97 CIRCLE ( 127,76) ,1,1 

98 CIRCLE(140,76) ,2,1 , , , .5 

1 00 DRAW " C 1 BM 1 53 , 80D90L4M 1 53 , 1 29M 119, 80M 1 53 , 80 " 
120 PAINTÍ151 ,85) , 1 :PAINT < 151 , 150) , 1 
130 DRAW " C 1 5BM 1 53 , 129M145 , 149D20" 

1 40 DRAW " BM93 , 79D 1 2M87 , 1 1 4R9M93 , 1 22M 1 03 , 1 25M93 , 1 28M96 , 1 40M93 , 1 45M 1 1 3 , 1 49M98 ,170" 

150 CIRCLE(104,92) ,2,15, , , .5 

1 60 DRAW " BM 1 1 2 , 1 23E 1 2BM 112,1 26E 1 2 " 

170 CIRCLE(178,47) ,32,15,2.3562,3.927 

180 CIRCLE (130 ,47) ,32 , 15 ,5 .4978 , .7854 

190 CIRCLE(187,107) ,48,15,1 .5708,2.3562 

200 CIRCLE (153, 27) ,48,15,4.7124,5.4978 

210 DRAW"BM154,31D326M161 ,71M180,63" 

220 DRAW "BM 154 , 39NE3NH3D7NE4NH4D7NE4NH4D8NE3NH3 " 

230 DRAW " C 1 BM94 , 1 24L45D 1 NR45U2E4L8F4 " 

240 DRAW"C15" :PAINT(50,120) ,1 

250 DATA 49,97,3,1 ,49,97,1 ,49,73,4,1,49,73,1 ,57,49,5,1 ,57,49,1 ,81 ,25,6,1 ,81 ,25,1 
260 DATA 49,97,3,15,49,97,15,49,73,4,15,49,73,15,57,49,5,15,57,49,15,81 ,25,6,15, 
81 ,25,15 

270 FOR 1=0 TO 3 :READ A,B,C,D,E,F,G 
280 CIRCLE(A,B) ,C,D:PAINT(E,F) ,G 
290 FOR H=0 TO 300:NEXT 
300 NEXT I 

310 FOR 0=0 TO 3:READ A,B,C,D,E,F,G 
320 CIRCLE (A, B) , C , D : P A I NT ( E , F ) ,G 
330 FOR H=0 TO 300:NEXT 
340 NEXT O 
350 RESTORE 
360 GOTO 250 
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10 KEt ÜFF:ÜLS:SCREEN 1 : LOCATE 1 ,6 :PRI NT "ooAPLIC ACION DE SPRITES**" 
2iZi LOCATE 1 , 15 :PRINT"Para continuar pulsar una tecla" 

m T*=INKEí* 

40 IF T$-=" "THEN 30 

45 SCREEN 2,3 

50 DATA 0,0,0,0,0,128,64,63 

60 DATA 31 ,31 ,31 ,26 ,26 ,2to ,26 ,0 

70 DATA 0,0,60, llo,255,63,60,252 

80 DATA 252,252,252,44,44,44,44,0 

90 DATA 0,0,0,0,0,0,0,0 

100 DATA 127,31,31,20,20,20,20,0 

110 DATA 0,0,vo,5t>,40,t>2,62,48 

120 DATA 240,240,240,88,76,68,64,0 

130 DATA0,7,6,7,1 ,31 ,39,71 

140 DATA 7,7,6,12,120,64,0,0 

150 DATA 0,128,192,128,0,224,208(200 

160 DATA 196,192,192,96,16,24,0,0 

170 FüRJ=l T03:A*="" 

180 FüR I=1T032 

190 READ A:A*=A*+CHR*(A> 

200 NEXT I 

210 5PRITE$ (J ) =A* 

220 IFJ=1THENRESTORE90ELSE IF J=2THENREST0RE 130 
230 NEXT j 

232 FQRY=10TO 170STEP 40 
234 F0RX=5T0255 STEP 5 
240 PUT SPRITE l,(X,í;,l,l 
250 PUT SPRITE 2 , \ X+30 , Y i , 15 ,2 
260 PUT SPR I T E3 , ( X+85 , Y ) ,1,3 
270 FOR J=0TÜ60nNEXT 
280 NEXTXrNEXTY 
290 SCREEN0 :KE Y ÜN 
300 END 
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5 CLS 

10 REM**CLAUOS Y CUESP^S*** 

15 REM**POR MARCELO TEL LO** 

16 REM*X***********X**X**XX 

20 INPUT"NUMERO DE UERT I GES" ;N 

30 INPUT ••RADIO" :R 

35 SCREEN2:C0L0R 10, l,i:CLS 

40 IA=2*3. 14159/N 

50 A = 

60 FOR U=1T0 N 
70 FOR 1=1 TO N-l 

80 X1 = 120+-R*COSCA3 : VI ^-87+RXSINC A 3 

100 X2= 1 20+RXCOS C A+ C I A* I 3 3 : Y2=87 fR*S I N C A 

+CIAXI33 

110 LINECX2,Y23-CXi.Yl3 
120" NEXT I 
130 A=A+IA 
140 NEXT U 
150 GOTO 150 



10 REN*** ESTRELLA XXX 

15 REI1XX — riSX-CLUB — XX 

16 REílXXXXXXXXXXXXXXXXX 

17 CLS 

20 INPUT" NUMERO DE PUNTAS" ;N 

30 í NPUT "COORDENADAS DEL. CENTRO C 1 00 , 1 00 3 

" :C1.C2 

40 ÍNPUT"RADIO MAYOR" :R1 
50 INPUT"RADIO MENOR" ;R2 

60 ÍNPUT"ANGULO QUE FORMAN EL RADIO L 
A PRIMERA PUNTA Y LA HORIZONTAL " ; A 

65 INPUT"COLOR PRINCIPALC 1-153 " ?T1 

66 INPUT"COLOR DE FONDOC 1-153 " :T2 
70 A=AX3. 14159/180:IA=3. 14159/N 
80 CLS 

85 SCREEN2:C0L0R TI . T2. 13 :CLS 
90 X=C1+R1XC0SCA3 :Y=C2+R1*SINCA3 
110 FOR 1=1 TO N 
i 20 A=A+IA 

130 X1=C1+R2*C0SCA3 :Yl.=C2+R2*STNf Al 
140 LÍNECX1.Y13-CX.Y3 :A=A+IA 
150 X=X1 :Y=Y1 

160 X1=C1+-R1XC0SCA3 :Y1=C2+R1XSINCA3 
170 LÍNECX1, Y13-CX, Y) 
180 X=X1 :Y=Y1 
190 NEXT I 

195 PAINTC 100, 1003, TI 
200 GOTO 200 
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10 REM***FLOR DE CIRCUNFERENCIAS** 
20 REM**X POR MARCELO 7ELLO ** 
30 REM*****XX*X******X*X*XX**X*X** 
40 CLS 

50 INPUT"NUMERO DE C í RCUNFERENCÍ AS" ?N 

60 INPUT"RAD10 PR'I NC I PAL " : R 1 

70 INPUT"RADIO DE LOS PETALOS" :R2 

80 ÍNPUT"COLOR DE LAS C I RCUNFERENC I AS C 1- 

150" :C1 

90 INPUT"COLOR DE FONDO C 1-153 11 :C2 
100 I A = 2X3. 14159/N :AN^0 
110 COLOR C1,C2, 1 SCLS 
120 SCREEN2 
130 FOR P=^1T0 N 

140 A=127+R1*C0SCAN3 : 8-87 + R 1 XS I N C AN 3 
150 C IRCLECA, B3 , R2 
160 AN-AN+ I A 
170 NEXT P 
180 GOTO 180 



10 REMXXX HAZ DE RECTAS XX* 
20 REMXXPOR MARCELO TELLOX* 
30 REMXXXXXXXXXXXXXXXXXXXXX 
40 CLS 

50 I NPUT "COORDENADAS DEL. CENTRO" }C 1 , C2 

60 INPUT"LONGITUD DE LOS SEGMENTOS" ;R 

70 INPUT"NUMERO DE SEGMEN TOS'';N 

80 INPUÍ" ANGULO QUE FORMAN EL PRIMERO 

LA HORIZONTAL" :A:A---AX3. 14159/180 ' 

90 INPUT"COLÜR PRINCIPALC 1-153 " ?T1 

100 INPUÍ "COLOR DE FONDO C 1 - 1 5 3 " ; T2 

110 IA=3.14159/N 

120 CLS :SCREEN2 : COLOR T1,T2,1 

138 for i«;í ro N 

140 X 1 =C 1 +R*COS C Al: V 1 --C2+RXS I N C A 3 
150 X2=Cl-RXOOSCA3 : V2=C2-R"*SINC A 3 
160 LINECX2, Y23-1 X1,Y13 
170 A=A+IA 
180 NEXT I 
190 GOTO 190 




10 SCREEN 2: COLOR 11,1,1 

20 X= i 28 : Y--.9S :f :M;5 : C-- 1 5 S S~8 : E =-6 . 2 i A= 1: . 4 

30 PI=- ATNf ! 3*¿ iKim 

4 8 FOR TtM-1 Tu 360 STEPte 

50 U-2*PI* ¡#/36Ü 

60 X- 130íR:*SINC.^ -V^í: •-<l^TflNCUi] 

70 gosub \m j 

80 NEXT T# 
90 GOTO 90 

100 CT RCL E C X, Y 3 , R, C, S 3 E t A : RE I URN 
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fflMPLETATUHEME 





SITE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 

Para contar con la más completa 
colección de programas de MSX 

sólo tienes que recortar o 
f otocoplar el cupón y dirigirlo a 
Dpto. Suscripciones MSX club de 
PROGRAMAS Roca I Batlle 10-12. 
08023 Barcelona 



| BOLETIN DE PEDIDO , 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.A. 

NOMBRE Y APELLIDOS 

CALLE N.° CIUDAD 



I_ _ 



DP PROVINCIA 



TEL. 



LISTA DE GANADORES 

Estos son los diez suscrlptores, entre los cien primeros, 
que han sido favorecidos con una grabadora Sony TCM-2. 

Francisco Javier Méndez Gil - Barcelona 
Angel Toribío San Agustín - Valencia 
José Luis Rodríguez Jiménez - La Coruña 
Vicente Ledesma Gil ■ Madrid 
Jorge González Sanjosé - Madrid 
Juan José López - Sevilla 
Bonifacio Pérez del Corral - Zaragoza 
Antonio Martínez - Barcelona 
Jaime Soler soler - Badalona 
Carlos Enrique Barrlonuevo - Madrid 

Ante la extraordinaria cantidad de suscripciones que han superado con creces nuestras 
expectativas previstas hasta el 25 de mayo, la dirección de MSX CLUB decidió sortear 
diez fabulosos cartuchos entre todas las suscripciones recibidas hasta la fecha mencio- 
nada, excluyendo a los de la primera lista. 
Los diez suscrlptores ganadores de un cartucho son: 




Alfonso Gómez Gutiérrez 
Almuñécar (Granada) 
Raúl García Olmo - La Coruña 
Iñaki Echevarría - Pamplona 
J. Guillermo Nos Martí - Castellón 
Joan M. a Torné ¡ Barbera - Reus 



José María Albadalejo Torres - Barcelona 

Jaime Coya Urioste - Madrid 

Luis Martínez Arbucio - Madrid 

Alicia Gómez Pertls - valladolld 

JoanPalauGalimany 

Vllaf ranea del Penedes (Barcelona) 
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DOS NUMEROS EN UNO 
EL DOBLE DE PAGINAS 
EL DOBLE DE NOTICIAS 
EL DOBLE DE ARTICULOS 
EL DOBLE DE PROGRAMAS 

¡RESERVALO EN TU KIOSCO! 
SALE EL 15 DE JULIO 
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Programas i 



EL COMEBICHOS 



En esta ocasión "El Comebi- 
chos" ha sido capturado por los 
feroces fantasmas y lo mantie- 
nen en una celda enrejado. Pero 
ni allí está a salvo pues sus car- 
celeros vienen en oleadas e in- 
tentan acabar con él. 




Tu misión es evitar que los fantasmas 
se lo carguen haciéndolo correr de un 
lado a otro de la celda para que ningu- 
no lo roce. Si la situación es por mo- 
mentos muy comprometida, puedes 
pulsar el botón rojo del ioystick, pues 
con él se lo conduce, y el Comebichos 
se hará invulnerable por unos segun- 
dos. 

A medida que pasa el tiempo los car- 
celeros pasan más rápidos y tu capaci- 
dad de reflejos debe ser mayor para 
esquivarlos. ¡Ah! También puedes me- 
jorarlo y hacernos conocer tus sugeren- 
cias. Por ejemplo, si los bichos te pare- 
cen demasiado grandes puedes hacer- 
los más pequeños con sólo modificar la 
línea 90: SCREEN 2, 2, 0, 1... Como 
puedes ver basta a veces con cambiar 
un carácter, en este caso un 2 por un 1. 



1 

2 ' # 4t 

3 '* EL COMEBICHOS * 

4 '* # 

5 '* MSX-CLUB # 

6 '# # 

7 '* # 
8 

10 DEFSNG A-2:G0SUB 1690 
20 ON ERROR GOTO 1490 
30 ON KEY GOSUB 1490 
40 KEY CID ON 
50 ON STOP GOSUB 1500 
60 STOP ON 
70 GOTO 1290 
80 SC=0:A=0 

90 SCREEN 2.1.0. l:KEY OFFrCOLOR 15.1.4:CLS 

100 SPRITE$C0D=CHR$C60D+CHR$C126]+CHR$C255D^CHR$C255D+CHR$C255D+CHR$C255D+CHR$C1 
26}+CHR$C60} 

110 SPRITE$Cn=CHR$C60)-fCHR$C126D+CHR$C2483+CHR$C224D+CHR$C240D+CHR$C252D+CHR$Cl 
26D+CHR$C60] 

120 SPRITE$C2D=CHR$C60D+CHR$C126D+CHR$C31D+CHR$C7D+CHR$C15D+CHR$C63D+CHR$C126D+C 
HRSC60D 

130 SPRITEtC3D=CHR^C0D+CHR$C66D+CHWC23n+CHR*C23n+CHR^C24?D+CHR*C255D+CHR$C126 
J +CHR$ C 60 D 

140 SPRITE$C4D=CHR$C60D+CHR$C126D+CHR$C255D+CHR$C239D+CHR$C23n+CHR$C231D+CHR$C6 
6 D +CHR$ C ] 

150 FOR R=5 TO 7 

«? SPRITE$CRD=CHR*C60D+CHR^C 126D+CHR$C219D-hCHR^C219D-4-CHR^C255D+CHR^C 195D+CHR$C2 
55 J *-CHR$C 170D 
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170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

¿80 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 



670 



310 



330 



350 



NEXT R 
TIME=0 

ON INTERUAL=8 GOSUB 
X=60:Y=90:SPEED=2 
ON SPRITE GOSUB 1240 
GOSUB 840:GOSUB 620 
SPRITE ON 
S=STICKC 1 D 
F=STRIG C 1 ] 

IF S=0 THEN GOSUB 1690 
IF F = -l THEN GOSUB 1510 
IF F=0 THEN SPRITE ON 
IF S=3 THEN GOSUB 380 ELSE 
PUT SPRITE 0. CX, YD. 10,0 
IF S=7 THEN GOSUB 440 ELSE 
PUT SPRITE 0, CX, YD , 10, 
IF S=l THEN GOSUB 500 ELSE 
PUT SPRITE 0, CX,YD, 10,0 
IF S=5 THEN GOSUB 560 
PUT SPRITE 0, CX,YD. 10.0 
GOTO 240 
X=X+4 

GOSUB 1590 
IF X>110 THEN X=110 
PUT SPRITE 0. CX, YD . 10, 1 
FOR DELAY=1 TO 10:NEXT 
RETURN 
X=X-4 

GOSUB 1590 
IF X<45 THEN X=45 
PUT SPRITE 0,CX,YD,10.2 
FOR DELAY= 1 TO 10:NEXT 
RETURN 
Y=Y-6.5 
GOSUB 1590 
IF Y<20 THEN Y=20 
PUT SPRITE 0, CX, YD , 10,3 
FOR DELAY= 1 TO 10:NEXT 
RETURN 
Y=Y+6.5 
GOSUB 1590 
IF Y>143 THEN Y=143 
PUT SPRITE 0.CX.YD.10.4 
FOR DELA V = 1 TO 10:NEX^ 
RETURN 

Gl X=250:G2 X=230:G3 X=205 : v 1 =20 : v 2=80 : v 3= 1 30 

PUT SPRITE 5. CG1X.Y1D. 13 

PUT SPRITE 6, CG2X.Y2D.2 

PUT SPRITE 7, CG3X, V3D.8 

RETURN 

IF Gl X<0 AND G2 X<0 AND 
Yl=vi+5 :Y2=Y2-+5 :Y3=V3+5 

IF vi>i90 THEN Y1=0 
IF Y2M90 THEN Y2 = 
IF Y3>190 THEN Y3=0 
G'l X=G1 X-SPEED 
G2 X=G2 X-SPEED 
G3 X=G3 X-SPEED 
PUT SPRITE 5. CG1X.Y1D, 13 
PUT SPRITE 6. CG2X, V 2D,2 
PUT SPRITE 7. CG3X.Y3D.8 
SC=SC+1 :A=A+1 
IF A>=350 THEN GOTO 1100 
SPEED=SPEED+. 1 
IF SPEED>T THEN S P EED= T ' 
TIME=0 
RETURN 




G3 X^0 THEN GlX=250:G2X=225:G3X-200 
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Programas. 



840 CLOSE 

850 FOR R=191 TO 166 STEP-1 :LINEC0, R3-C255. R3 . 12 :NEXT R 

860 FOR R=180 TO 195 -'LINECR, 1053-CR, 1663 . 6 :NEXT R 

870 CIRCLEC187,623,43,3:PAINTC187,623,3 

880 FOR R=l TO 255 STEP 4 

890 . IF R>175 AND R<200 THEN GOTO 920 

910 p!^[p'5g^7 2:PSETCR ' 16 ^^ 

920 NEXT r' 

930 FOR R=45 TO 48 

940 PSET CR,203,9 

950 DRAU"D140R80U140L80" 

960 NEXT R 

970 PSETC54,03,2:LINEC54,03-C54,93.2 
980 PSETC 1 16. 03 , 2 :LINEC 116,03-0116,9], 2 

990 FOR R=55 TO 125 STEP 10 :PSETCR, 203 , 9 :DRAU"D140" :NEXT 

1000 OPEN"GRP:"AS#l 

1010 PSETC 10, 303 , 1 :PRINT#1, "////" 

1020 PSETC10,403, 1 :PRINT#1, "EL" 

1030 PSET C 10, 48 3, 'l :PRINT#1, "COME" 

1040 PSETC 10, 56 3, 1 :PRINT#1 , "BICHOS" 

1050 PSETC 10, 64 3, 1 :PRINT#1 , "////" 

1060 PSETC120.23, 1 :PRINT#1 , "SUPERCONTADOR" 

1070 CLOSE 

1080 I NTERUAL ON 

1090 RETURN 

1100 I NTERUAL OFFrSPRITE OF c :GOSUB 1690:TXT=155 
1110 PUT SPRITE 5, C129. 303, 13 
1120 PUT SPRITE 6,C129,503,2 
1130 PUT SPRITE 7,C129,703,8 

1140 OPEN"GRP:"AS#l : PSETC TXT. 403 . 1 :PRINT #1, " CARRERAS ! " : PSETC TXT, 50 3 , 1 
1150 PRINT #1,"ESTA UEZ" :PSET CTXT, 603 , 1 íPRINTti, "TU GANAS, " :PSET C TXT, 703 . 1 
1160 PRINTítl , "PERO" :PSETCTXT,803, 1 : PRINT ftl. "UOLUEREMOS! " :CLOSE 
1170 FOR R^-l TO 2000:NEXTR 

.1180 SCREEN 1 , 1 , 0, 1 :COLOR 3, 1 , 8 :CLS : Y=90 :X=0 :SC=S 

1190 PRINT :PRINT :PRINT"200 PUNTOS DE BONOS. " : PRI NT "BRAUO COflEBICHOS!" 

1200 FOR R=l TO 1000:NEXT R : PRINT : PRINT :PR i NT "ESPERA QUE SIGUEN" :PRINT"OTRA UEZ. 

1210 PRINT :PRINT"PERO ESTA UEZ CON BICHOS MAS UELOCES" 
1220 PRINT : PRINT :PRI NT "RESULTADO HASTA AHORA=" :SC : A-0 
1230 FOR R=l TO 1500:NEXT RrGOTO 90 

1240 I NTERUAL OFF:SPRITE OFF.:PUT SPRITE 5. C-10. -103 , 1 :PUT SPRITE 6. C-10, -103 , 1 :P 

UT SPRITE 7, C-10. -103, 1 

1250 GOSUB 1690 :FOR D=l TO 150:NEXT 

1260 FOR J=l TO 8:F0R R=l TO 4: PUT SPRITE 0» LX.Y3, 10, R: BEEP : FOR D=l TO 10:NEXT 
D:NEXT R:NEXT J 

1270 FOR I=V TO 200--PUT SPRITE 0, CX, 13.10,0 :NEXT 
1280 FOR R=l TO 1000:NEXT R:GOTO 1290 

1290 SCREEN 2, 1 , 0, 1 :COLOR 5, 1 , 10 :CLS : RESTORE :P=0 : A~0 
1300 T=20 

1310 READ CX,CY,RAD,COL 

1320 IF CX=999 THEN GOTO 1410 

1330 IF STRIGC13=-1 THEN GOTO 90 

1340 CIRCLECCX,CV3, RAD.COL 

1350 PA I NT C CX , CY 3 , COL 

1360 GOTO 1310 

1370 DATA 60,60,30,12,45,100,20,12,60.60.15,1 
1380 DATA 125.90.34.13.125,80,15,1,125,120,18.1 
1390 DATA 200,90,34,8,220,90,25,1 
1*00 DATA 999,999,999,999 
1410 OPEN "GRP:"AS#1 

1420 PSET C103, 1253. 1 :PRINT#1, "COflFLO" 
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1430 PSET C60, 10D, 1 :PRINT#1, "EMPIEZA" 

1440 PSEÍ C25.20D, 1 :PRINTttl, "EL ULTIMO RESULTADO FUE DE:":SC" 

1450 PSET C60, 170D, 1 :PRINT#1, "POR MSX CLUB" 

1460 PSET C50, 1803, 1 :PRINTttl, "PULSAR EL BOTON DEL MANDO" 

1470 IF STRIGC13=-1 THEN GO^O 90 

1480 GOTO 1470 

1490 RUN 

1500 SCREEN0, ,1,1 :KEY ON :COLOR 15,4,4 :CLS :PRINT FREC03 : "BVTES LIBRES" :END 

1510 IF P>60 THEN RETURN 

1520 SPRITE OFF 

1530 P=^+4 

1540 PSET CP+50, 103.7 

1550 PSET CP+51. 113,8 

1560 PSE^ CP+52, 123.9 

1570 IF P>»@8 THEN SPRITE ON : RETURN 

1580 RETURN 

1590 SOUND 0,255 

1600 SOUND 1,6 

1610 SOUND 6,31 

16 

1620 SOUND 8,16 

1630 SOUND 9, 16 

1640 SOUND 11, 180 

1650 SOUND 12.1 

1660 SOUND 13. 14 

1670 SOUND 7, &B00000000 

1680 RETURN 

1690 SOUND 8,0:SOUND 9,0:RETURN 




Programas 



SIETE Y 




Este es uno de los juegos de car- 
tas más populares y son contados 
quienes no lo han jugado alguna 
vez. Pues bien, José Angel Cruz Ma- 
teos de Madrid, nos ha enviado un 
programa para jugarlo en casa, en- 
tre amigos y contra el ordenador 
MSX, que hace de banca. 



Las instrucciones las encontrarás y 
verás que es muy divertido jugarlo. No 
olvides que las figuras valen medio 
punto y que si no te has pasado al pe- 
dir, tienes que esperar a que el ordena- 
dor también se dé cartas. Una adver- 
tencia, el MSX es muy a\ 
cartas en sus chips. 




10 CLS:PT=180 
20 LOCATE US 



PR I NT " PARA PEDIR CARTA 



LOCATE 1.8 :PRINT 
CONTESTAR S N" 



PU 

"C 



LSA EL ESPACIADOR" : 
UANDO PREGUNTE ALGO 
30 FOR N=l TO 2000 
40 NEXT N:PT=100 
50 FOR 2=0 TO 3 
60 FOR Y=0 70 10 
70 CCZ,YD=0 
80 NEXT Y:NEXT 2 

90 1F PT=0 THEN CLS : PRINT "NO TIENES DI 
ÑERO" :END 

100 CLS:LOCATE 1 , 5 :PR INT"TIENES ";PT;" P 
TS":LOCATE l;9:INPUT "CUANTO QUIEÍ ES APO 
STAR" ;AP:LOCATE 1.9:PRÍNT " 

":IF AP>PT OR AP<1 T 

HEN GOTO 100 
110 SU=0:CC=0:CB=0 
120 GOSUB 160 
130 GOSUB 320 

140 IF SU=0 THEN GOSUB 460: GOTO 120 ELS 
E GOSUB 610: GOTO 120 
150 END 

160 A=INTCRNDC 1D*10D 

170 IF A>3 THEN GOTO 160 

180 B=INTCRNDC 1 DX10D 

190 IF SU)=0 THEN GOTO 230 

200 FOR H=l TO 1500 

210 NEXT H 

220 GOTO 260 

230 L$=INKEY$ 

240 IF L$=" " THEN GOTO 260 
250 GOTO 160 

260 IF CCA,B3=0 THEN CCA. BD = 1 :G0T0 310 

270 A=INTCRNDC 1 DX10D 

280 IF A>3 THEN GOTO 270 

290 B=INTCRNDC 1 D*10D 

300 GOTO 260 

310 RETURN 

320 C1=A+1 

330 ON Cl GOTO 3¿0, 350, 360. 370 
340 CA$="#" : GOTO 380 
350 CA$="*" : GOTO 380 
360 CA$="#" : GOTO 380 
370 CA$="r' 

380 LOCATE 25, 1 :PRINT " , j 

390 FOR 2=2 TO 11:L0CATE 25,Z:PRINT "|": 
LOCATE 33,Z:PRINT " | " :NEXT Z 

400 LOCATE 25.12:PRINT " 1 

410 FOR X=26 TO 32:F0R U=2 TO 11: LOCA-TE 

X,0J:PRINT " ":NEXT U:NEXT X 
420 B=B+1 

430 ON B GOSUB 790,800,810,820.830,840,8 
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50,860,910.950 

440 LOCATE 1,5:PRINT "TIENES "./PT^'PTS . 

:LOCATF 1 7:PRI-NT "N&S APOSTADO J'- TAP ; " 
PTS" 

450 RETURN 

460 IF B=8 OR B=9 OR B=10 'THEN C.C=CC+.5 
ELSE CC = CC + B 

470 LOCATE 1,19:PRINT "TIENES ";CC;" TAN 
TOS " 

480 IF CC>7.5 THEN LOCATE 1,17 ELSE 560 
490 PRINT "HAS PERDIDO" 

500 PT=PT-AP: LOCATE l f 5,:PRINT. "TIENES * 
PT:" PTS 

510 LOCATE i,i5: PRlNi "QUIERES JUGAR OT 

RA UEZ?" 

520 Q$=INKEV$ 

530 IF Q$^"S" THEN GOTO 50 
540 IF Q$="N" THEN CLS: END 
550 GOTO 520 

560 LOCATE l,l?: p RINT "¿QUIERES OTRA CAR 
TA?" 

570 U$=INKEY$ 

580 IF U$="N" THEN SU= 1 ¡LOCATE" 1,17': PRI 

NT " " : RLTUR'N 

590 IF U$="S" THEN LOCATE 1,17:PRINT " - 



600 GOTO 570 

610 IF B=8 OR B=9 OR B~!0 THEN CB=CB+.5 
ELSE CB=CB+B 

620 LOCATE 1,21: PRINT "LA BANCA TIENE " 
;CB:" PUNTOS " 

630 IF CB>7,5 THEN LOCATE 1,17: PRINT "M 
E HAS GANADO" ELSE 710 

640 LOCATE 1,15 : PRINT "QUIERES JUGAR O 
TRA PARTIDA?" 

650 IF CC=7,5 THEN PT=PT+ f. AP*2 D ELSE PT= 
PT+AP 

660 LOCATE 1 , 5 :PR IN r " T IENES ";PT;" PTS 
«i 

670 Y$=1NKEY$ 

680 IF Y$="S" THEN GOTO 50 
690 IF Y$="N" THEN CLS: END 
700 GOTO 670 

710 IF CB>=CC THEN LOCATE 1,17: PRINT "T 
E HE GANADO" ;PT=PT-AP; ELSE GOTO 780 
720 LOCATE 1,5:PRINT " T I ENES " ;PT l u PTS 

730 LOCATE 1,15: PRINT "QUIERES JUGAR OT 
RA PARTIDA?" 
740 Y$=INKEY$ 

750 IF Y$="S" THEN GOFO 50 
760 IF Y$="N" THEN CLS: END 
770 GOTO 740 
780 RETURN 

790 LOCATE 29,6:G0SUB 980:RETURN 

800 LOCATE 29.3:G0SUB 980:LOCATE 29,9:G0 

SUB 980:RETURN 

810 LOCATE 29,3:G0SUB 980: LOCATE 29,6:G 
OSUB 980: LOCATE 29.9:G0SUB 980: RETURN 
820 LOCATE 27,3:G0SUB 980: LOCATE 31,3: 
GOSUB 980: LOCATE 27,9:G0SUB 980: LOCATE 

31,9:G0SUB 980:RETURN 
830 LOCATE 27.3:G0SUB 980: LOCATE 31,3: 
GOSUB 980: LOCATE 29,6:G0SUB 980: LOCATE 

27.9:G0SUB 980: LOCATE 31.9:G0SUB 980 :R 
ETURN 

840 LOCATE 27.3:G0SUB 980: LOCATE 31,3: 




GOSUB 980: LOCATE 27,6:G0SUB 980: LOCATE 
31,6:G0SUB 980: LOCATE 2?,9:G0SUB 980: 

LOCATE 31,9:G0SUB 980:RETURN 

850 LOCATE 27.3:G0SUB 980: LOCATE 31,3: 

GOSUB 980: LOCATE 29,-5 :GOSUB 980: LOCATE^ 
27. 7 :GOSUB 980: LOCATE 31.7:G0SUB 980: 

LOCATE 27,10:GOSUB 980: LOCATE 31,10:GOS 

UB 980:RETURN 

860 LOCATE 26.2 

870 PRINT "10" 

880 LOCATE 26.3:PRINT CA$ 

890 LOCATE 28,4:PRINT CA$ :CA$ :CA$ :CA$ 

900 LOCATE 31.5:G0SUB 980: LOCATE 31,6:G 
OSUB 980: LOCATE 28.7:G0SUB 980: LOCATE 
31,7:G0SUB 980: LOCATE 28.8:G0SUB 980: L 
OCATE 31. 8 :GOSUB 980: LOCATE 29.9:PRINT 
CA$:CA$:RETURN 
910 LOCATE 26.2:PRINT "11" 
920 LOCATE 26.3:G0SUB 989 
930 LOCATE 28,4: p RINT CmiCmiCm 
940 FOR 2=5 TO 8: LOCATE 27. Z :GOSUB 980 ¡ 
LOCATE 31,Z:G0SUB 980:NEXT Z: LOCATE 29 
,7:G0SUB 980: LOCATE 28.9:PRINT CA$;CA$; 
CA$: LOCATE 31,10:GOSUB 980:RETURN 
950 LOCATE 26,2:PRINT "12" 
960 LOCATE 26.3:G0SUB 980: 
970 FOR Z=5 TO 11: LOCATE 27,Z:G0SUB 980 

:NEXT Z: LOCATE 31,5:G0SUB 980: LOCATE 3 
0.6 :GOSUB 980: LOCATE 29,7:G0SUB 980: LO 
CATE 28,8:G0SUB 980: LOCATE 29,9:G0SUB 9 
80: LOCATE 30,10:GOSUB 980: LOCATE 31,11 

:GOSUB 980:RETURN 
980 PRINT CA$:RETURN 
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Funciones del MSX 



CONSTANTES 
Y VARIABLES 



■ 



Conocer el funcionamiento 
de nuestro ordenador MSX es 
fundamental para el usuario. 
Ese sinnúmero de instrucciones 
que al principio le damos de un 
modo mecánico cuando copia- 
mos programas, es necesario 
que poco a poco descubramos 
su significado, no sólo por satis- 
facer la curiosidad, sino para sa- 
carle más provecho y cometer 
menos errores. 



Uno de los puntos que conviene te- 
ner en cuenta a la hora de usar nuestro 
ordenador MSX es que no se puede 
obtener su máximo rendimiento sin 
conocer cómo funciona y cual es el al- 
cance de las instrucciones que puede 
recibir. Por este motivo en esta ocasión 
damos unos apuntes sobre algo tan co- 
mún como las variables y las constan- 
tes. 

Constantes 

En primer lugar señalemos que las 
constantes son números o cadenas in- 
variables, de modo que pueden ser de 
dos clases: constantes de cadena o 
constantes numéricas. 




Constante de cadenas: Es una se- 
cuencia de caracteres con un largo de 
hasta 255. Esta secuencia puede serlo 
de códigos gráficos, de caracteres o de 
control utilÍ2ables en el BASIC MSX y 
encerrada entre comillas: 

"MSX CLUB ESPECIAL" 
"-¡HOLA!--" 
"-¡SUSCRIBETE!-" 
"1500PTS. AL AÑO" 

Constantes numéricas: Son secuen- 
cias de números positivos o negativos 
de los que puede haber seis clases, que 
para mayor claridad daremos de modo 
sinóptico: 

1) Numéricas enteras: son números 
enteros entre -32768 y 32767 ó 
11111111111111111a ' 




0000000000000000 en bionario de die- 
ciséis bits. En estas constantes no hay 
puntos decimales. 

2) DECIMALES: son números rea- 
les positivos o negativos que en ocasio- 
nes contienen una coma decimal 
(437,768) 

3) De COMA flotante: son números 
reales positivos o negativos en forma 
exponencial, que se presentan en for- 
mato de precisión simple o doble. 

a) Formato de precisión simple. Es la 
secuencia integrada por un número en- 



tero, la letra E y otro número entero (- 
58E10) o bien, punto fijo, letra E y un 
número entero (8.745E5) 

b) Formato de precisión doble. Aquí 
en lugar de una E se emplea una D, de 
modo que tenemos entero-D-entero (- 
1756497561249D40) o DECIMAL-D- 
entero (8.746593659 1245D-5) 

4) Hexadecimales: Como ya sabe- 
mos los números hexadecimales deter- 
minados por el prefijo &H y es un siste- 
ma de numeración con base 16 (0, 1, 2, 
3,4,5,6, 7, 8, 9, A, B,C,D,E, F).Por 



ejemplo &HFF determina el largo de 1 
byte y &H8D 1 A, el largo de dos bytes. 

5) Octales. Los números octales son 
determinados por el prefijo &0 y se tra- 
ta de un sistema numérico con base 8 
(0, 1,2,3, 4, 5, 6, 7), como por ejemplo: 
&06543. 

6) Binarios. Estos números son de- 
terminados por el prefijo &B y consis- 
ten en un sistema numérico con base 2, 
empleando en consecuencia sólo y 1, 
como por ejemplo: &B01010101. 

Precisión simple y precisión doble 

Más arriba hemos señalado los FOR- 
MATOS de precisión simple y doble. 
Precisamente aquí tenemos uno de los 
puntos más interesantes de nuestro or- 
denador MSX. Esto se debe a que una 
de las peculiaridades del BASIC MSX 
son sus funciones aritméticas BCD de 
doble precisión con exactitud de 14 dí- 
gitos, que la mayoría de los microorde- 
nadores de 8 bits no tienen. 

La doble precisión es generalmente 
ofrecida en los sistemas de 16 y 31 bit, 
pero la Microsoft rediseñó su 4, 5 MS- 
BASIC para que los ordenadores de 
este sistema tuviesen una computación 
exacta. 

Gracias a esto podemos tener cons- 
tantes numéricas de simple y doble 
precisión que el usuario puede especi- 
ficar de acuerdo con sus necesidades, si 
no lo hace, el ordenador opta directa- 
mente por la doble precisión. 




La escala de precisión simple es de 
seis dígitos y la de precisión doble es de 
catorce dígitos. Las características de 
una precisión simple se expresan a tra- 
vés de la forma exponencial E o de sig- 
nos de exclamación (1.64E-2 ó 
154.87!). Las características de las 
constantes de precisión doble se expre- 
sa por medio de cualquier dígito o nú- 
mero sin signo de exclamación, utili- 
zando la exponencial D o el signo #: 
1274746.2 160 
435.875635D-07 
562.123 # 

Variables 

Las variables son nombres a los que 
puedes asignar valores, los cuales son 
susceptibles de ser modificados. Esto 
quiere decir que una variable puede ser 
calculada por el programador de un 
modo específico, dando, por ejemplo 
PI=3, 14, o por el mismo ordenador 
que determinará PI= 4*ATN (1). 

Los nombres de las variables pueden 
ser de cualquier longitud, aunque el or- 
denador sólo leerá las dos primeras le- 
tras. De modo que si colocamos dos va- 
riables distintas pero cuyas dos prime- 
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ras letras sean iguales, el ordenador las 
considerará como si fuesen una sola 
(VARI y VAR2). Para que la máquina 
lea dos variables distintas tenemos que 
colocar VI y V2. 

Otro detalle que hav que tener en 
cuenta es que las variables no pueden 
tener nombres reservados, como las 
palabras claves de BASIC. También si 
el nombre de una variable empieza por 
FN el ordenador entenderá que se trata 
de una función definida por el usuario. 




Especificación de tipo 

Como ya hemos señalado los orde- 
nadores MSX pueden actuar en simple 
o doble precisión. De acuerdo con esto 
si el nombre de una variable carece de 
un carácter que especifique el tipo, el 
ordenador entiende que se trata de una 
variable de doble precisión. 

VI = número de doble precisión 
Los caracteres especiales son: 

a) $ Indica que la variable es una ca- 
dena 

V$= «Caracteres de cadena» 
Dirección$ = «Roca i Batlle 10-12» 

b) % Este signo indica una variable 
entera 

V% = 30 
AVZ% = 30725 

c) ! Este signo indica una variable 
numérica de precisión simple. 

V! = 4987.9! 

PAGINA! = 6.2338 E-01 

d) # = La doble barra señala una va- 
riable numérica de doble precisión. 

V # = 3.2346457812 
ESPECIAL # = 6478.87645D64 

DEF o tipo de carácter 

La declaración DEF se utiliza para 



definir un tipo de carácter. Cuando el 
tipo de variable es declarado usando 
una declaración cualquier variable que 
empiece con el carácter declarado se 
convertirá en ese tipo de carácter sin 
especificarlo en el nombre de la varia- 
ble. Esto significa que si colocamos 
DEFSTR E, cualquier variable que em- 
piece con E será una variable de cadena 
sin que tengamos que poner el signo de 
dolar ($). Esto no significa que EB% 
tenga que ser una variable de cadena, 
porque el carácter de especificación de 
entero o sea % precede a DEFSTR. 

Hay cuatro constataciones DEF tipo 
de carácter, que son las siguientes: 
DEFSTR, DEFINT, DEFSNG y 
DEFDBL. 





La declaración DEFSTR especifica 
que cualquier nombre de variable que 
empiece con la línea declarada de ca- 
racteres tiene que ser tratado como una 
variable de cadena: DEFSTR E * 
ESTE = «ORIENTE». 

La declaración DEFINT hace que 
cualquier nombre de variable que em- 
piece con una línea especial de carac- 
teres tiene que ser tratado como un 
entero. 

DEFSNG especifica que cualquier 
nombre de variable que se inicie con la 
línea determinada de caracteres tiene 
que ser tratado como un número sim- 
ple de precisión. 

Por último la constatación DEFDBL 
especifica que cualquier nombre de va- 
riable que empiece con la línea deter- 
minada de caracteres tiene que ser con- 
siderada como un número de doble 
precisión. Hay que tener en cuenta, 
por otra parte, que la especificación de 
tipo de carácter con -$, ! , % y # toma 
precedencia sobre estas declaraciones. 

Esperemos que estos apuntes sobre 
un aspecto tan interesante del funcio- 
namiento de nuestro MSX les sea de 
mucha utilidad y que les ayude a ser 
más constantes y menos variables a la 
hora de afrontar las primeras dificul- 
tades. 
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Programa estrella 



BARCELONA 
OLIMPICA 



El lector Humberto Martínez 
Barberá de Cartagena es el au- 
tor de un estupendo juego de 
atletismo, con el que apoya la 
candidatura de Barcelona a rea- 
lizar los juegos olímpicos de 
1992. Tanto el juego como la 
idea son brillantes v se gana por 
lo mismo el estrelíato en MSX 
CLUB. 



Como en todos los programas aue 
publicamos éste también es susceptible 
de ser mejorado por nuestros lectores. 

Las instrucciones vienen incluidas 
en el mismo programa y como compro- 
barán es muy fácil de jugar. Uno de los 
jugadores emplea teclado y el otro joys- 
tick. ¡Aupa campeones! 
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20 '* 
30 '* 
40 '* 
50 '* 
60 '* 
70 '* 
80 '* 



BARCELONA OLIMPICA 
riSX-CLUB-1985 
CC3 H. Martínez 
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* 
* 
X 



90 

100 COLOR 14,1,1 
110 GOSUB 3610 
120 CLEAR 
130 COLOR 1,4,4 
140 SCREEN2,3,0 
150 OPEN"gr P :"AS#1 
160 CLS 

170 GOSUB 1130 
180 GOSUB 2300 
190 CLS 

200 GOSUB 1320 
210 S=l :S1 = 1 

220 ON STRIG GOSUB 1100,1070.1100 

230 STRIGC03 0N:STRIGC13 ON:STRIGC23 ON 

240 TiriE=0 

250 PUT SPRITE 0. CX, 803 , 1 , C0 AND S=-130R 
C2 AND S=13 

260 PUT SPRITE 1 , CX, 803 . 13, C 1 AND S=-130 
R C 3 AND S = 1 3 

270 PUT SPRITE 2, CXI , 1303 . 15, C0 AND Sl=- 
130RC2 AND Sl = 13 

280 PUT SPRITE 3, CXI , 130} , 13, C 1 AND Sl=- 
130RC3 AND Sl = 13 

290 IF X>225 THENGC03=5 :GOSUB 910:GOTO 3 
20 

300 IF Xl>225 THEN GC13=5:GOSUB 920:GOTO 
320 

310 GOTO 250 

320 Tl=INTCTIME/53/10 

330 PLAY" vl.lt 140o4&bbdef g&bbaf egabaf edca 
feg" 

340 IF PLAYC 1 3 O0THEN340 
350 CLS 

360 FORI=0TO30:PUT SPRITE I , C0, 03 , 0, I íNE- 




XTI 

370 GOSUB 1320 

380 A$="clrl017d3r4u3bd3f 5bl9bu5g5 ,v 
390 RESTORE 420 

400 F0RI=1T03:READ X :PRESETCX, 973 :DRAW A- 

$:PRESETCX, 1473 :DRAU A$: NEXTI 

410 X=0:X1=0 

420 DATA 50, 130.210 

430 TII1E=0 

440 PUT SPRITE 0, CX, 803 . 1 . C0 AND S=-130R 
C2 AND S=13 

450 PUT SPRITE 1 , CX, 803 , 13, C 1 AND S=-130 
RC3 AND S=13 

460 PUT SPRITE 2, CXI, 1303, 15, C0 AND Sl=- 
130RC2 AND Sl=13 

470 PUT SPRITE 3, CXI . 1303 . 13, C 1 AND Sl=- 
130RC3 AND Sl=13 

480 IFX+28>50ANDX<55THENGOSUB920 :GC 1 3=6C 
13+5:GOTO 590 

490 IFX+28> 130ANDX<125THENGOSUB920 :GC 1 3= 
GC13+5:GOTO 590 

500 IFX+28>210ANDX<205THENGOSUB920 :GC 1 3= 
GC13+5:GOTO 590 

510 IFX1+28>210ANDXK205THENGOSUB910:GC0 
3=GC03+5:GOTO 590 

520 IFX1+28>130ANDX1<125THENGOSUB910:GC0 
3=GC03+5:GOTO 590 

530 IFX1+28>50ANDX1 <55THENG0SUB9 1 :GC03= 
GC03+5:GOTO 590 

540 IF X>225 THENGC03=GC03+5:GOSUB 910:G 
OTO 590 

550 IF Xl>225 THEN GC 1 3=GC 1 3+5 :GOSUB 920 
:GOTO 590 

560 IF CSTICKC03=1 OR STICKC23=13 AND DI 
<4 THEN GOSUB 850 

570 IF STICKC13=1 AND D<4 THEN GOSUB 790 

580 GOTO 440 

590 T2=INTCTIME/53/10 

600 PLAY"vl lt 140o4cef eddf bcdf eabdceac " 
610 IF PLAYC 1 3 O0THEN610 
620 GOSUB 930 
,630 T3=INTCTI(1E/53/10 

640 PLAY "vi lo4t 140bdcdaf e raf bdacf de&rbf 

650 IF PLAYC 1 3 <>0 l'HEN 650 

660 S=1.5:FORI=0TO2:STRIGCI3 OFF'-NEXTI 

670 Y=30 

680 FORKK=0TO1 

690 GOSUB 2520 

700 FOR T=1T05 

710 PUT SPRITE 3, C30, Y3, 15, 1 1 

720 IFCSTICKC13 = 1 AND KK-0 3 OR C C ST I CK C 3 O 

RSTICKC23 3 ANDKK=1 3THENGOSUB2910 :GOTO 760 

730 IF Y<30 OR Y>140 THENS=-S 
740 Y=Y+S 
750 GOTO 710 
760 NEXT T 
770 NEXT KK 

780 IF GC03=GC13 THEN PRESETC 100, 1003 :PR 

INTttl, "EriPATE" :FORI = 1TO1000:NEXTI :S=^ABSC 

S3*2:GOTO 670ELSEGOTO 3000 

790 F0RI=XT0X+38 

800 PUT SPRITE 0,C 1,663, 1.5 

810 PUT SPRITE 1. C 1.663. 13.4 

820 NEXTI 

830 X=I :D=D+1 

840 RETURN 

850 F0RI=XlT0Xl+38 

860 PUT SPRITE 2, C I , 1 163 . 15. 5 

870 PUT SPRITE 3, C I , 1 1 6 3 . 1 3 . 4 



880 NEXTI 

890 X1=I :D1=D1+1 

900 RETURN 

910 PRESETC30,853 :PRINT#1 . "GANADOR" :PUT 
SPRITE 0. C225.803. 1.7:PUT SPRITE 1.C225, 
803, 13.6:RETURN 

920 PRESET C 30, 1353 :PRINT#1, "GANADOR" :PUT 
SPRITE 2. C225. 1303, 15,7:PUT SPRITE 3, C2 
25. 1303, 13,6:RETURN 
930 GOSUB 3300 

940 X=22:X1=22:X2=22:S=1 : S 1 - 1 :S2=1 

950 TIME=0 

960 X2=X2+.9:S2=-S2 

970 PUT SPRITE 0, CX, 863 . 1 , 14 

980 PUT SPRITE 1 . CX. 863 . 13. C 15 AND S=130 

RC16 AND S=-13 

990 PUT SPRITE 2, CXI . 1 163 . 15. 14 

1000 PUT SPRITE 3. CXI, 1163, 13, C15 AND SI 

=130RC16 AND Sl=-13 

1010 PUT SPRITE 4. CX2, 1463. 12, 14 

1020 PUT SPRITE 5. CX2, 1463, 13. C15 AND S2 

=130RC16 AND S2=-13 

1030 IF X>200 THEN G C 3 =G C 3 +5 : G0SUB9 1 : 
RETURN 

1040 IF Xl>200 THEN GC 1 3=GC 1 3+5 :GOSUB920 
:RETURN 

1050 IF X2>200 THEN RETURN 

1060 GOTO 960 

1070 X=X+2.5 

1080 S=-S 

1090 RETURN 

1100 Xl=Xl+2.5 

1 1 10 Sl^-Sl 

1120 RETURN 

1130 RESTORE 1620 

1 140 F0RI = 1T032 :REAÜA$:S$^S$+CHR*f UALC& 

H"+A$33 : NEXTI ."SPRITESC n^Sí 

1 150 S$="" :rORI=aT032:Ri:ADn*:S$^S$-'-C: i !*$f 

UALC "&H"+A$3 3 :NEXTI :SPRITE*C0 j-^S* 

1160 S$=" " :f r 0RI = lT032:READA$:S$^S*+CHR$C 

UALC "&.H"+A*3 3 : NEXTI :SPRITE$C23--S$ 

1170 S$="" :F0RI = lT032:READ0$:S$--S$-CHR$f 

UALC"&H"+A$3 3 : NEXTI : SPR I TE$ C 3 3 -S$ 

1 180 S$=" " :F0RI = 1T032 :READA$ :S$--S$ --CHR$C 

UALC"&H"+A$3 3 :NEXTI :SPRI TE$C4 3 ~~S$ 

1 190 S$="" :f r 0RI = lT032:READA$:S$^S$+CHR$f 

UALC "&.H"+A$3 3 : NEXTI :SPRI TE$C5 3^-S$ 

1200 S$^"" :' r 0RI = lT032:READA$:S$--S$-*-CHR$f 

UALC"iH ,, +A$33 :NEXTI :SPRITE$C63--S$ 

1210 S$="" :F0RI = 1T032:READA$;S$--S$^-CHR$C 

UALC"&H"+A$3 3 :NEXTI : SPR I TE$ C 7 3 ~S*fc 

1220 S$="" :F0RI-lT032:READA$:S?-S^-»-CHR$C 

UALC "&H"-«-A$3 3 : NEXTI : SPR I T E$C83-S$ 

1 230 S$=" " :FOR I = 1 T032 :READA$ :S$ -S'fc+CHR'SC 

UAL C " &H " + A$ 3 3 : NEXT I : SPR I TE* C 9 3 ~-S$ 

1 240 S$= " " : FOR I s 1 T032 ¡ READA* 5 S$--S$>-C\ IR$ C 

UALC "&H"+A$3 3 :NEXTI :SPRITE$C 103^5$ 

1250 S$="" :F0RI = 1T032:READA$:S$-=S$hCHR$C 

UALC"&H"+A$3 3 :NEXTI :SPRI TE$C 1 1 3^S$ 

1260 S$="" :F0RI = 1T032:READA$:S$=S$+CHR$C 

UALC"&H"+A$33 :NEXTI :SPRI TE$C 123=S* 

1270 S$="" :F0RI = lT032:READA$:S$=S$-*-CHR$f 

UALC"&,H"+A$33 :NEXTI : SPR I TE* C 1 3 3 =S* 

1280 S*="" :F0RI = lT032:READA$:S*^S*-*-CHR$C 

UALC'W+A*3 3 : NEXTI :SPRITE*C 143-S* 

1290 S*^"" :F0RI = lT032:READA$:S$--S$+CriR$C 

UALC"S,H"+A$3 3 :NEXTI :SPRI fE*C 153--SS 

1300 S$="" :F0RI = lT032:READA$:S$=-S$-'-CHRSC 

UALC"&H"-A$33 : NEXTI : SPR i TE* C 1 6 3 =3$ 

1310 RETURN 

1320 LINEC0.823-C256, 1223.6.3'" 
1330 LINEC0, 1 32 3 -C 256. 177 3,5.3 r 
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1340 LINEC0.523-f256.72), I5,| 

1350 LINEf 0,523 - -(256,52), l 

13.60 LINEf0.03-i'232,0),t 

1370 LINEf 232.03 -C256. 52), l 

1380 As^'eeeceaeaíeoc©^^ 

1390 PRESET C . 2 3 : D R INT#Í , ftj 

1410 PRESET Ce, 123 :PRINT#1 ,A$ 
1420 fi*="QG*2Ga2Q9m2^^ 

1430 PRESETC0, 223 :PRINTirl, A* 
1440 A$="í 

1450 PRESET f 2. 32 3 :PR INT*r 1 , ft* 

1460 m^CóQQGe^^ 

1470 PRESETC 0, 423 :PRINT#1 , A$ 

1480 LINEf 10. 823-f 15. 1223. 1 

1490 LINEf 10. 1323-f 15. 1723. 1 

1500 LINEf 240. 823-f 250, 1223. 1 

1510 'LINEÍ240. 1323-f250, 1723, 1 

1520 LINEf 150. 553-f 190,683. l.BF 

1530 COLOR 15 : PRESET f 156, 58 3 *• PRINTttl » "MS 

X" 

1540 COLOR 1 :PRESETf 15.583 :PRINT#1 . "BARC 
ELONA'92" 

1550 PUT SPRITE 0.f0,803.1.5 
1560 PUT SPRITE 1 . f 0. 803 . 1 3. 4 
1570 PUT SPRITE 2, f 0. 1 303 , 15, 5 
1580 PUT SPRITE 3. f 0. 1303 . 13. 4 
1590 PLAY"vllT100o4crcrcrt60c. " 
1600 IF PLAYf 1 3 O0THEN1600 
1610 RETURN 

1620 DATA 0,01.01.0.01.03.05.09 
1630 DATA 01, 01. 01. 0f .08.0.0.0 
1640 DATA 0.c0.c0.80,c0,e4,d8.c0 
1650 DATA c0,c0. 40. 20. 10. 18.0,0 
1660 DATA 0.0,0,0.01.03.01.01 
1670 DATA 01.01.01.08.08.0,0.0 
1680 DATA 0, 0, 0, 0, 40, e0, c0, c0 
1690 DATA C0.C0. 40. 0.0, 18.0.0 
1700 DATA 0.0,0.0,01.03.01.01 
1710 DATA 01,01,02.0.0.06.0.0 
1720 DATA 0,0,0,0,40,e0,c0,c0 
1730 DATA c0, c0, 40, 0, 0. c0, 0, 
1740 DATA 0,01.01,0,01,03.03.05 
1750 DATA 05.01.02,02,04,06,0.0 
1760 DATA 0,c0.c0,80.c0,o0,d0.c8 
1770 DATA C0,c0,40,40,80,c0,0,0 
1780 DATA 0.0.0.0.0.0.0,0 
1790 DATA 0.04,03,01,03.16,10,0 
1800 DATA 0.0.0,0.0.0,0,0 
1810 DATA 58. f8.c0. 40.50.40,60.0 
1820 DATA 0.0,0,0,0,0,0,0 
1830 DATA 0,0,01,01.01,10,10.0 
1840 DATA 0,0,0,0,0,0,0,0 
1850 DATA 40.C0.C0.80.40.0.60.0 
1860 DATA 0.05,05,04.07,01.01.01 
1870 DATA 01.01.01.01,01.03,0.0 
1880 DATA 0,d0.d0,90.f0,c0,c0,c0 
1890 DATA c0. 40. 40. 40, 40, 60, 0,0 
1900 DATA 0,0,0,0,03,01,01,01 
1910 DATA 01.01.0,0,0,03,0,0 
1920 DATA 0, 0,0,0, 60, C0,c0,c0 
1930 DATA c0. 40. 0.0. 0.60, 0,0 
1940 DATA 0,01,01.0,01, 13, 0d, 01 
1950 DATA 01.01,01,01.01,03.0.0 
1960 DATA 0, c0, c0, 80, c0, 60, d0, 60 



1970 DATA c0, 40. 40, 40, 40. 60. 0.0 
1980 DATA 0.08.10.10.11,03,11,11 
1990 DATA 11,09,0.0,0.03.0,0 
2000 DATA 0,0,0,0,40,e0,c0.c0 
2010 DATA 00.40.0,0.0,60,0,0 
2020 DATA 0. 0.0.0. 04, f8. 04,0 
2030 DATA 0,0,0.0,0,0,0,0 
2040 DATA 0,0,0,0,0,0,0,0 
2050 DATA 0,0,0,0,0,0,0,0 
2060 DATA 70, 70, 70, 78, 78. 78, 7c , 7c 
2070 DATA 7c. 7c, 78. 78. 78. 70. 70. 70 
2080 DATA 0.0,0.0,0.0.0.0 
2090 DATA 0.0.0.0.0,0.0,0 
2100 DATA 0.01,01.10,09,07.01.01 
2110 DATA 03.03.07.07.02,06.0,0 
2120 DATA 0, c0, c0, 80, c0, 60, d0, c8 
2130 DATA c0, f 0, f c , 84, 0, 0, 0,0 
2140 DATA 0,0,0.0.01.03,01,01 
2150 DATA 03,03.07,07.0,06.0,0 
2160 DATA 0,0.0.0.40,80,c0.c0 
2170 DATA P 0.f 0.e4.8*,0,0,0,0 
2180 DATA 0,0,0,0,0,0,0,03 
2190 DATA 01,03,00,0,0.0,0,0 
2200 DATA 0,0,0,0,0,0,0,0 
2210 DATA 0,0,0,0.0.0,0,0 
2220 DATA 0, 0, 0, 0, 0, 0, 20, 3f 
2230 DATA 01 , 3f , 20, 0, 0, 0, 0, 
2240 DATA 0. 0, 0, 0. 0, le . 10. f 6 
2250 DATA f e . f 6, 10, f 0, 0, 0, 0. 
2260 DATA 0, 0. 0. 0, 0, 0, 20, 3f 
2270 DATA 01 . 3'f . 20, 0, 0» 0. 0, 
2280 DATA 0, 0. 0, 0. 0, f 0, 10, f 6 
2290 DATA f e . f 6. 10. le , 0. 0. 0. 
2300 CLS 

2310 LINEfl0.103-f240,182D.l.B 

2320 LINEf 15, 153-f 235, 1773, 1 , B 

2330 PAINTfll.m.l.l 

2340 LINEf45,453-f 195, 1053, l.BF 

2350 PRESETÍ50, 1003 :DRAW"c8s40u5rlf le 1 ri 

d4r2ulhlulelr2f3" 

2360 DRAU"e2rl9 2f 21 Ih2g21 Ie2h212dlf 1" 

2370 DRAUI"d lg 1 13u4g lh ld41 ls4c 1 " 

2380 PAINTf 51, 993, 8, 8 :PAINTf 182,673,8,8 

2390 PUT SPRITE 0, f 50, 1 1 53 . 1 . 7 

2400 PUT SPRITE 1, f50. 1153. 13.6 

2410 PRESETf 58, 144 3 :DRAU)"c 15s4rl6d 13rl6d 

13148ul3rl6ul3" :PAINTf59, 1453, 1-5. 15 

2420 PSETt64, 1463, 15:PRINT#1. "1" 

2430 PSETC81. 1603. 15:PRINT#1, "3" 

2440 PSETf 48, 1603» 15:PRINT#1, ,l 2" 

2450 LINEf 100. 1233-f229, 1353 , 14, BF :PRESE 

Tf 1 10, 126 3 :PRINT#1 , "BARCELONA' 92" 

2460 PRESETf 127. 1 431 :PRINT#1 , "H.Md.rt ínez 

2470 PLAY"ul0t255dcf egdcegabcegdaif ced " , " 
t200f dcef eibba.cai&a.ba.c " , "t 100o lrrryrrrg" 
2480 IFPLAYU3O0 AND PLAYf 23 <>0 AND PLA 
Yf33 O0THEN2480 

2490 PUT SPRITE 0. f 40, 1503 . 0, 7 
2500 PUT SPRITE 1 , f *0 . 1 50 3 . . 6 
2510 RETURN 
2520 CLS 

2530 FORI=0TO20:PUT SPRITE I . f 0. 03 , 0. I :N 
EXTI 

2540 LINEf 105. 523-C256, 723. 15. BF 
2550 LINEf95.823-f256, 1223, 6. BF 
2560 LINEÍ95, 1323-f256, 1723.6, BF 
2570 LINEf85.823-f95,823.6 
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2580 LINEC95. 1 223-C85, 823 . 6 
2590 LINEC85. 1323-C95, 1323.6 
2600 LINEC95, 1723-C85. 1323.6 
2610 PAINTC87,853,6,6 
2620 PAINTC87, 1353,6.6 
2630 LINEC95.03-C105.523. 15 
2640 LINEC95.03-C95.423, 15 
2650 LINEC95.423-C105.723, 15 
2660 PAINTC96.203. 15, 15 
2670 LINEC95.03-C256.03. 1 
2680 LINEC95.823-C 105, 1223, 1 
2690 LINEC95, 1 32 3- C 105, 172 3 . 1 
2700 LINEC30.303-C30, 170}, 1 
2710 LINEC25.303-C35.303. 1 
2720 LINEC25. 1703-C35. 1703, 1 

2730 A$="eeee©2eee«tseee«ee^ 

2740 PRESE TC 103, 2 3 :PRINT#1 , A$ 

2750 A$="ee••ee•2a?2•w•2020•' 

2760 PRESETC104, 123 :PRINTttl,A$ 

2770 A$=•'eeee•eo2ee•eee©•2e•■ , 

2780 PRESETC105,223 :PRINTttl,A$ 
2790 A$="eeee#2©£Üt£Q£ee#S#'' 

2800 PRESETC 108. 323 :PRINT#1 , A$ 

2810 A$=''eeo2e©202«tseos*20" 

2820 PRESETC1 12. 423 :PRINT#1.A$ 

2830 LINEC150.553-C190.683, 1,BF 

2840 COLOR 15:PRESETC156.583 :PRINT#1, "CL 

UB" 

2850 PUT SPRITE 0, C200, 803 , C 1 AND KK=03O 

RC15 AND KK=13.9 

2860 PUT SPRITE 1 , C 200. 803 , 1 3. 8 

2870 PLAY'\;1 1T100o4c re re rt60c . " 

2880 IF PLAYC 1 3 O0THEN2880 

2890 COLOR 1 

2900 RETURN 

2910 FORI=200TO30STEP-8 
2920 PUT SPRITE 2 . f I . 80 3 , 1 , 1 
2930 PUT SPRITE 3, C30, Y3 , 15, 1 1 
2940 Y=Y+S 

2950 IF Y<30 OR Y>140 THEN S=-S 
2960 NEXTI 

2970 IF Y>60 AND Y<100 THENPLAV " yj \ 0t 255b 

cg" :GCKK3=GCKK3+1 

2980 PUT SPRITE 2, C0. 03. 0,10 

2990 RETURN 

3000 CLS 

3010 FORI=0TO20 :PUT SPRITE I , C 0. 03 . 0. I :N • 
EXTI 

3020 LINEC0. 1303-C256, 1923. 14.BF 

3030 PRESETC 60. 103 :PRlNT±tl . "SCORE" 

3040 COLOR 11 :PRESETC20,303 iPRINTttl.-Pla 

yer 1 :"::COLOR 1 :PRINT#1 . USING"##" :GC03 

::COLOR 1 1 :PRINT#1 . " puntos" 

3050 COLOR 11 :PRESETC20,503 :PRINT#1. "PIa 

yer 2 :"::COLOR 1 :PRINT#1 , USING"##" :GC 1 3 

::COLOR ll:PRINT#l," puntos" 

3060 LINEC15.273-C177.613.1.B 

3070 LINEC15.433-C177.433. 1 

3080 PRESETC 18*. 303 :PRINT#1 . USING" 1 4 ##. 

»" :ti : :PRINT#1. "s" 

3090 PRESETC 18^.^03 :PRINT#1.USING"24 #ít. 
ÍP :T2: :PRINTttl . "s" 

3100 PRESETC 184. 50 3 :PRÍNTM .US ING"3¿ Vr . 

íí" :T3: :PRINTitl. "s" 

3110 LINEC177.273-C256.613. l.B 

3120 COLOR 1 :PRESETC200, 103 :<^RINTJM " rtri 

E " : COLOR 15 

3130 PUT SPRITE 0, C50, 1 153 . C 1 AND GC03>G 



C1330RC15 AND GC13>GC033.7 

31-30 PUT S°RITE 1 . C50, 1 153. 13. 6 

3 1 50 PRESET C 58 . 1 44 3 : DRAUi :i c 1 os 4rlSd 1 3r • 54 

13148.J 13^i6u 13" :PAINTC59. 1-53. 15, 15 

3160 PSETC64. 1463. 15:PRINTJtl. " 1 " 

3170 PSETC81 ,1603. 15:PRINTttl . "3" 

3180 PSETC48. 1603, 15:PRINT#1, "2" 

3190 PLAY"^10t255cbdaf ebf gedf gaecfe", 'VI 

0t200dbeicef bde&c " . "t 255o 3 r re r re rrcrr C " 

3200 XX--75:f r 0RI=-135T0122STEP-l :XX^XX-1 

3210 PUT SPRITE 2. CXX, I 3 . 12. 13 

3220 PUT SPRITE 3. CXX. I 3 . 13. 12 

3230 FORJ=1TO30:NEXTJ. I 

3240 X^72:Xl=80:FORlM20TO90STEP-¿:X^X-*-l 
0:X1=X1 -10 

3250 PRESETCX1 . 1 3 :PRINTi*í. "f 
3260 PRESETCX. I 3 :PRINT#1 . 'f 1 
3270 NEXTI 

3280 IF STRIGC03=0THEN3280 
3290 RUN 120 

3300 CLS:PORI-0TO20:PUT S P RI FE I,C0,03.0 
. I :NEXTI :LINEC0.523-C256,523. 1 
3310 LINEC0.03-C232.0 3. 1 
3320 LINEC232.03-C256.523. 1 
3330 LINEC0.523-C256.723. 15. 3^ 
3340 A$="f~ 



3350 PRESETC0.23 :PRINTH1.A$ 
3360 A$^" 

3370 PRESETC0, 123 :PRINTttl, A$ 
3380 A*--"ee*2©32©&©^^ 

3390 PRESETC0, 223 :PR'ÍNTiíl . A$ 
3400 A$^"í 

34 10 PRESETC 2, 32 3 :PRINTttl . A$ 

3420 A*^'eeeeeeeeee©2^^ 



3430 
3440 
3450 
"K 

3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 

3650 

36G0 
3670 

I 

3680 



PRESET C 0, 42 3 :PRINT#1.A* 

PRESETC 156, 583 :PRÍNTM. "P1SX CLUB" 

PRESETC40, 583 :PRINTííl . "BARCELONA* 92 

L I NE C 24 , 86 3 - C 232 , 1 78 3 . 1 1 , BF 
L I NEC 20, 823 -C 236, 182 3. 1 .B 
LINEC24.86 3-C232. 1 78 3 . l.B 
PAINTC21.833. 1, 1 
LINEC24, 1 163 -C 232, 1163, 1 
LINEC24. 1463-C232, 1463, 1 
PUT SPRITE 0, C0.863. 1,5 
PUT SPRITE 1 , C0.863. 13.4 
PUT SPRITE 2, C0, 1163. 15,5 
PUT SPRITE 3. C0, 1163, 13,4 
PUT SPRITE 4, C0. 1463, 12,5 
PUT SPRITE 5, C0, 1463, 13,4 
PLAY'\;UT100o4crcrcrt60c. " 
IF PLAYC 1 3 O0THEN3590 
RETURN 
CLS:KEY OFF 
SCREEN 
LüIDTH 40 
A$='j 

A1$="H 
I 

PRÍNTA$ 

FORIMTO20:LOCATE 0, I :PRINTA1$ :NEX" 
PRINTA$ 




3690 LOCATE 15, 4 :PRlN P'BGRCELONfl OLTffPIL 

A" 

3700 LOCATE 15.5:PRINT" 



3710 A$="l la- Apretando el botón o el e 
spacio (■ hacer correr a los atletas. " 
3720 B$-"B 2a- Como la primera, pero salt 
ando I con cu rso r/joyst ¡ ck arriba." 

3730 C$="B 34- Como la primera , sin que 
I gane el nadador uerde (ordena 

do r D . " 

3740 D$="l 4^- Disparar la flecha con cu 
rsor/ | joystick arriba y dar en la d 

i ana. " 

3750 LOCATE 0, 7 :F0RI = 1 TOLENCA*:) :PRINT fll 

D$CA$. I, n ; :FORJ=1TO50:NEXTJ, I 

3760 LOCATE 0, 9 :F0RI = 1T0LENCB$D :PRINT ni 

D$CB$. 1,13! :FORJMTO50:NEXTJ, I 

3770 LOCATE 0,11 :F0RI=1T0LENCC$D :PRINT n 

ID$CC$, I , ID : :FORJ=1TO50 :NEXTJ, I 

3780 LOCATE 0. 13 :F0RI = 1T0LENCD$D :PRINT M 

ID$CD$, I , n : :FORJ=1TO50:NEXTJ. I 

3790 LOCATE 0,17:PRINT"1 Player lCnegro} 

:joystick CAV 
3800 LOCATE 0,18:PRINT"1 Player 2Cblanco 
D: joystick CBD o 
tec lado " 

3810 LOCATE 9, 22 :PRINT" CPu Isa e 1 espacio 
} " 

3820 IF STRIGC0D=0 THEN 3820 
3830 RETURN 



DESCUBRE TU ORDENADOR 

LOS SECRETOS 
DEL MSX 




UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

DESCUBRE COMO 

AHORRAR MEMORIA 

GANAR MAS VELOCIDAD 
DE EJECUCION 

COMPONER MUSICA 
AUNA, DOS O TRES 
VOCES 

ORGANIZAR TUS 
PROPIOS PROGRAMAS 
DE GESTION, etc. 



LOS SECRETOS 
DEL MSX 



EL LIBRO QUE ESPERABAS 
¡A LA VENTA EN JULIO! 
¡RESERVALO YAY CANA UN IMPORTANTE DESCUENTO! 

ENVIA HOY MISMO EL BOLETIN DE RESERVA 



Deseo reservar el libro LOS SECRETOS DEL MSX, cuyo precio es de 1.500 Ptas. y ganarme el descuen- 
to del 10%, por lo que remito talón de 1.350 Ptas. a la orden de Mannattan Transfer, S.A. 

Nombe y apellidos 

Calle n.° ciudad DP 

Esta reserva me da derecho a recibir LOS SECRETOS DEL MSX en mi domicilio libre de gastos de en- 
vío o cualquier otro cargo. 

importante: indicar en el sobre MANHATTAN transfer, S.A. 

RESERVA «LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos -08021 BARCELONA 



BANCO DE PRUEBA: 



Programas Sony para ordenadores MSX 

A la orden 







Monkey Países Países Computador Computer TheSnowman 

Academy del Mundo- 1 delMundo-2 Adivino Billiards 



Cubit 



Character 
Collection 






ti ¿r 




Stoptheexpress Hustler (Billar Data cartridge Quinielas y HomeWriter Sparkie Aprendiendo 

(Para el Tren) Americano) Reducciones lnglés-1 



Binary Land 






Creative Aprendiendo 
Greetings lnglés-2 



Antartic 
Adventure 



Mastermind Contabilidad Athletic Land 

Personal 



E.I. 



Ficheros 











El Ahorcado Dorodon La Pulga 



Cosmos 



Control BattleCross Mouser Crazy Train 

de Stocks 




Alibaba juno First Carjamboree Tutor 



Track and Blackjack Track and 

Field-1 * Field-2 

(olimpiadas) (olimpiadas) 



Driller Tanks 
(Tanque 
Destructor) 



Y muchos 
más títulos 



Sonygraph Ninja 
(El Samurai) 



LesFlics 



Ordenador Doméstico 



HIT 3IT 



Para toque guste ordenar 




